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Student Materials Book 


Preface 


The purpose of this Guided Learning Center 
course is to prepare you to write programs 
for the System/38. 


This Student Materials Book, which is 
yours to keep, guides you through the 
course. It contains progress checks, 
exercises, and pages for your notes. 


Sixth Edition (October 1986) 


This is a major revision of, and obsoletes, ZR30-0990-4. Changes are periodically made to 
the information herein; any such changes will be reported in subsequent editions. 


References in this publication to IBM products, programs, or services do not imply that 
IBM intends to make these available in all countries in which IBM operates. 


Publications are not stocked at the address given below. Requests for IBM publications 
should be made to your IBM Representative or to the IBM branch office serving your 
locality. 


You may communicate your comments about this publication, its organization or subject 
matter with the understanding that IBM may use or distribute whatever information you 
supply in any way it believes appropriate without incurring any obligation to you. Address 
your comments to IBM Corporation, Department 7TF, P.O. Box 2150, Atlanta, Georgia 
30055. 
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Chapter 1. Course Introduction 


This is where you start the course. 


In Module 1 you will learn about: 


PURPOSE 


e The topics and objectives of this course 
e The IBM System/38 reference library 
e Using the IBM System/38. 


TIME ESTIMATE 


1 hour, 15 minutes 


MODULE OBJECTIVES 


After successfully completing this module, you should be able 
to: 


e State the purpose of this course—what it will prepare you 
to do. 


e Describe the structure of this course—where it fits in the 
System/38 curriculum, what the components of the course 
are, and how they interact with each other. 


e Perform fundamental programmer tasks on the System/38. 


At this time, begin your study in the Module 1 text. 
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PROGRESS CHECK: UNIT 1 


Now answer the following questions without reviewing 


the material in Module 1. Write your answers in the 
space provided under the question. 
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What is the purpose of the System/38 Application 
Programming Course? 


Ade Test and boocete Lytyl hcg lle DLO gr 
—1taeate hata law fates __ 
2 2alir aka dake Make leone, pater 


SAL 1 AF CHAD ALA LS. AALS 
4 ff 
SNP LLAL LAIN LAAAA/A CLAM LS (IMAL DKHOH AVY 
— i 
Ab t, A ‘ A Wy Ce ae 4 U 4 L. ral rs AE} fy Vales a fd 
(, 
9. (MN a. Limsi be f LYTAAHA 
f 
_ 
v4 CPO a! 
3 COBOL 
— yy of 
ay DE BU Cr fa rhe 
Y 
o OL AO YLALEX “2°34 (I f, MANO 4 y; 
é, 
7 YH) 


Briefly describe the structure of this course—what are its 
components and how do they interact with one another? 


When you are finished answering these questions, return 


to Module 1 and compare your answers with the ones 
given. 





NOTES 
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NOTES 
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Chapter 2. System/38 Review 


PURPOSE 


The purpose of this module Is to review some of the important 
facilities of CPF. 


TIME ESTIMATE 


1 hour, 15 minutes 


MODULE OBJECTIVES 


After successfully completing this module, you should be able 
to: 


e List and briefly describe the components of the IBM 
System/38's data base. 


e List the functions of the Control Program Facility. 
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TERMS 


The terms listed below are reviewed in the module: 





Physical File Library List 
Logical File Interactive Job 
Field Reference File Batch Job 
Library User Profile 
Display File Subfile 
Qualified Object Name Select/Omit 
SPOOL Access Path 


Control Language 


2 
IBM 
At this time, begin your study in the Module 2 text. 
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REVIEW TEST: MODULE 2 


1. 


In the space below, list the components of a Physical File. 


In the space below, list the components of a Logical File. 





. What is the purpose of a Field Reference File? How is it 


unique when compared to other physical files? 


Name the coding form used to describe Data Base Files. 


. Name the four programs that are included in the Interactive 


Data Base Utilities (IDU). Briefly describe the purpose of 
each. 


. List at least three types of objects. Name the object used to 


locate other objects. 
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7. Name the coding form used to describe Display Files. 





8. Briefly describe the purpose of a test library. 


9. Briefly describe the value of a compiled Control Language 
program. 


10. Briefly describe interactive processing and batch 
processing. 


At this point, return to Module 2 to check your 


answers. Then read the Module Summary. 
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NOTES 


System/38 Review 2-5 


NOTES 
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Chapter 3. System/38 Operation 


PURPOSE 


This module teaches you how to enter control language 
commands on the Command Entry Display and on the 
Programmer Menu. Also, you will learn to use prompting for 
entering command parameter values and how to use the 
System Request Menu to transfer between two interactive jobs. 


TIME ESTIMATE 


2 hours 


MODULE OBJECTIVES 
Upon successfully completing this module, you should be able to: 


e List the considerations for choosing the Programmer Menu 
instead of the Command Entry Display—and vice-versa. 


e Describe how you communicate your choice of displays to 
the IBM System/38. 


e Execute Control Language commands using each of the 
displays. 


e Describe at least two ways of selecting and entering a 
Control Language command using the prompting function. 


TERMS 
The following terms are defined or described in this module: 
Command Entry Display 
Programmer Menu 
User Profile 
Initial Program 
Job Description 


Password 


At this time, begin your study in the Module 3 text. 


System/38 Operation 3-1 





MACHINE EXERCISE 1 —- COMMAND ENTRY DISPLAY 


3-2 


ZR30-0980 





This exercise gives you practice using commands entered on J 
the Command Entry Display. 


You are instructed to use command keys in the exercise. On 
some display stations a command key is activated by pressing 
the CMD key then the designated key on the top row. If you are 
using a display station with the command keys on a separate 
pad on the keyboard, press the indicated command key. 


The notation used in this book for command keys is CMD n, 
where n is the number of the command key. 


Also, the ENTER/REC ADV key is referred to in the exercises as 
the ENTER key. 


1. Go to a display station attached to the System/38. 
e If the display station is not ready, power it on. 


e Sign on using the password M3E1A. As you may know 
the letters in a password can be entered in either 
uppercase or lowercase. 


2. When the Command Entry Display appears, enter the Display 
User Profile command shown below. 


Press ENTER to process the command. 


Please note that in this case the user profile name and the 
password are the same. In practice, the password should be 
different from and have no recognizable association to the 
profile name, or anything else for that matter. 


COMMAND ENTRY DISELAY System ATLEPDEY 
dspusrprt usriper fimieiad 


CFS - Duplicate CF 4 Fy amp t CF? 


Low jevel messages 





The Display User Profile command, as entered, displays basic 
information about the M3E1A user profile. In case you are 
wondering, the profile name is made up as follows: Module 3 
Exercise 1 part A. 


System/38 Operation 3-3 


3-4 


3. Take a few minutes to study the display. Then press ENTER 
to return to the Command Entry Display. 


4. Next, use the prompting displays to copy a file from one 
library to another. 


Press CMD 4, to get prompting. 


On the Command Grouping Menu, select the option for 
Data Base File Menu (DBF) and press ENTER. 


On the Data Base File Menu, select the option for 
Physical File Menu (PF) and press ENTER. 


On the Physical File Menu, enter the option for Copy File 
(CPYF) and press ENTER. 


On the Copy File (CPYF) prompt, enter only the names 
shown below, replacing xxx with your initials. To remove 
unwanted material and to advance to the next entry line 
after you enter a name, press FIELD EXIT. 


Check your entries before you press ENTER. 





Copy File (CPYF) Frompt +++ 
Enter the following: 
From file name: FROMF ILE R appvend 
Library name: gle 
To file name or ¥*LIST: TOF ILE RK appvimst 
Library name: Libxxx 
From member or generic® name: FROMMER F M¥FIRST 
To member name or Label name: TOMBR P *xFIRST 
Replace or add records: MBROPT F *NONE 
Create file (#NO *YES): CRIFILE F ¥NO 
Which records to print: PRINT ¥NONE 


ZR30-0990 


You will see another CPYF prompt. Because of its many 
parameters, the CPYF command has several prompting 
displays. Make no changes to the remaining prompting 
displays—press ENTER as each appears. 


Sometimes in using a multiple page prompt, such as the CPYF 
prompt, you may need to page back. You can page back using 
CMD 2. 


J 


If you followed the instructions correctly, the CPYF command 
failed to process, and messages are displayed under the 
command. 


COMMANI! ENTRY DLSFLAY System’ ATLEITDEYV 
dspusrprf usrprf(m3ela) 
CPYF FROMFILECAPFVEND.GLC> TOFILE (AP FUMST.LIBXXX) 
Library LIBXXX not found. 
To-file AFFVMST.IIBXXX not found. 
Copy command terminated due ta error, 


CF3 - [Ttuplicate CF4 - Frompt CF? —- Low Level messages 





5. Position the cursor to each of the messages in turn and 
press HELP. Take time to read through the help messages to 
become acquainted with the kind of information they 
contain. When you finish reading each help display, press 
ENTER to return to the Command Entry Display. 


HELP is a very useful facility that can save you much time by 
eliminating the need to look up information in reference 
manuals. 
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6. Your next step is to create the library using the Create 


Library command shown below. Again replace xxx with your 
initials. 


Press ENTER. 


COMMAND ENTRY DISPLAY System! ATLEDDEV 


dspusrprf usrprt (m3ela) 

CPYF FROMFILECAPPVEND.GLC) TOFILE<CAPPVMST.LIBXXX) 
Library LIBXXx not found. 

To-file APFYVAST.LIBXXX not found, 

Copy command terminated due to error, 

crtlib LibCLibxxx) 


CF3 ~ Duplicate CF4 — Prompt CF? — Low level messeges 
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7. Verify that your library is created by displaying it with the 
Display Library command shown below. 


After you type in the command, press ENTER. 


COMMAND ENTRY TISFLAY Systems ATLEDTEYV 


dspusrprf usrprf (mgetad 

CRYF FROMPFILE CARPPYVEND.,GLC) TORTILE COFPFYUMST.LIBXKXxX) 
Library LIBXXX not found. 

To-file AFFYMGFT.LIEBXXX not found. 

Copy command terminated due to erroars 

crtlLib LrbClibxxx) 

dseplib LibClLibxxx) 


CFA - Tuplicate CF4 —- Frompt CF? - Low level messages 





Your display should appear as follows. 


4/19/86 FL4ADPzTOO (LI GRARY LI SFLAY 
Library s LI BRXXKX Types FROM 
Nbr of obysé 0 


OR JECT TYFE ATT ES FREED SIZE TEXT 


(Library has no objects) 





Press ENTER to return to the Command Entry Display. 


8. You are ready to try the CPYF command again. You may 
either enter the command again or duplicate it by moving the 
cursor up to the previous command and pressing CMD 3. In 
either case, a parameter needs to be added. 


Do you know what the parameter is? 
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lf you said “CRTFILE(*YES)", you are correct. You are having 
the CPYF command create the to-file before records are 
copied into it. 2» 


lf you use prompting, look for the CRTFILE parameter and 
change the default value of *NO to *YES. 


Otherwise, add the parameter to the end of the command as 
shown below. 


Press ENTER. 


COMMAND ENTRY DISFLAY System? ATLEDIEYV 
dspusrprf usrprf(m3ela) 
CPYF FROMF ILE CAPPYVEND.GLCO) TOFILECAFFUMST.LIBXXX)> 
Library LIBXXxX not found. 
To-file APPYMST.LIBXXX not found. 
Copy command terminated due to error, 
crtlib Liob<Libxxx) 
daptib Lib¢ttLibxx~x) 
CFEYF FROMFILECAPPVEND.GLO) TOFILECAFFYVUMST.LIBXXX) crtfitltet#yes> 


CF3 — Duplicate CF4 — Prompt CF7 -—- Low level messages 





9. Although the CPF sends a message to verify that the copy 
command processed successfully, you should display your 
library again with the DSPLIB command. Now, you will see 
the file APPVMST listed in your library. 


Press ENTER to return to the Command Entry Display. 
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10. You have completed doing functions discussed in Unit 2. 


Sign off by entering the SIGNOFF command as shown 
below and pressing ENTER. 


COMMAND! ENTRY DISFLAY System? ATL.EDKEYV 
dspusrprf usrprf (mJela? 
CPYF FROMFILECAPFYVEND.GLO) TOFILECAFFYMST.LIBXXxX> 
Library LIBXXX not found. 
To-filte APFYVMST.LIBXXX not found. 
Copy command terminated due to error. 
crtlib Lib¢ Libxxx)> 
dsplib Lib¢ Libxxx> 
CRYF FROMFILECAFPFPYVEND,.GLO) TOFILECARPFYVYMST.LIBXXX) crtfi le (*yes) 
Fhysical file AFFYMST created in Lib LIHXXxX. 
Mbr AFFYVEND added to file APFYVMST.LIBXXxX. 
AY rcds copied from file AFPRPVENT.GLC mbr/tlabet APFVENT. 9 rcds excluded. 
dsplib lLib¢libxxx) 
signoff 


CFS — [Tuplicate CF4 -- Frompt CFY —- Low level messages 
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Select one of the fo 
1. DTesign/execute 
2. Design/execute 
3. Create object 
4. Call program 
Se. Execute command 
6+ Submit job 
7. Tlisplay submi tt 
8B. Edit source 
9. Tlesign display 

80. [tisplay Menu 
9O. Sign off 
Types: HAS, HASF', 
FRTF, QRY, 
Option:  Parm? 
Command? 


Text 
Src file$ 


CF3--Command entry 
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BS 
RF 





11. When the sign-on display returns, sign on using the 
password M3E1B. 


This password presents the Programmer Menu. 


F-ROGRAMMER MENU SYSTEM: ATLEIDEYV 
Lliowing’ 
FU app 


query app 


»Coptions?) 
»Coptions) 
type, 


Capp), 
Capp)», 
object name, 
Program name 
command 

(job name), 


pgm for CMI, (text) 


(command ) 
ed jobs 

(srcembr), Ctyped, Ctext)d 
(srcmbr > 
(menu) 
CH#NOLIST *LIST) 


CLE, CMO, CMNF, 


format 


CR » Cr-U, DSFE, LF, MXDF, FFs PLI, 


G» 


CL ,» 
RF’ T » 


CL... 
TXT 


Type: 23 


Farm 


*¥YES 
QRATCH 


requests: 


l.og 
Jobd? 


CF 46-D0SFMSG 


Sre Libs *LIBL Ob J Lib’ 
CF4--Frompt (3,5 & 6 only) 





12. At the Programmer Menu, use CMID 3 to request the 
Command Entry Display. 


Then, display the user profile M3E1A using the 
DSPUSRPRF command shown below. 


COMMAND ENTRY DISFELAY System’? ATLEDDEYV 
$t Programmer menu started 
ti depusrprf usrprf(m3elia) 


CFS ~- Duplicate CF4 — Prompt CF? — Low level messages 
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A message is displayed telling you security prevents you 
from seeing this profile. Unless you are signed on as 
security officer, you cannot look at any user profile other 


than the one assigned to the password you signed on with. 


COMMANI! ENTRY LIISFILAY System: ATLEDDEYV 
1 Programmer menu started 
3? dapusiprf usrprf (m3ela> 
Not authorized to user profile M3JE1A. 
t% 


CF3 —- Duplicate CF4 -- Frompt CF7 —- Low level messages 
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J 


USRPRF parameter value to M3E1B, the password you 
signed on with. 


Press ENTER. 


( 13. Duplicate the command with CMD 3 and change the 


COMMAND ENTRY DISFLAY System! ATLEDDIEYV 
Programmer menu started 
dspusrprf usrprf (mSela) 
Not authorized to user profile MSELA, 
dspusrprf usrprf(m3elb>) 


CF3 - Duplicate CF4 —- Prompt CF? ~- Low level messages 





When the User Profile display appears, press ENTER to 
return to the Command Entry Display. 
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14. Return to the Programmer Menu by entering the RETURN 
command as shown below and pressing ENTER. 
Alternatively, you can press CMD 1 to return. 


COMMANE ENTRY DISPLAY System? ATLEDIIEYV 
Programmer menu started 
dspusrerf usrprf (mZela> 
Not authorized to user profile M3E1A. 
dspusrprf usrprf (m4eib? 
return 


CF3 -—- Duplicate CF4 — FPrompt CF? — Low Level messages 
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15. 


You will use the Programmer Menu again in the following 
exercises. For now, sign off by entering option 90 and 
pressing ENTER. 


FROGRAMMER MENU SYSTEM: ATLEDDIIEV 


Select one of the following: 


1. 
> 


= 


Je 
4. 
we 
Ge 
Ve 
O. 
9. 
BO, 
90. 


Itesign/execute DFU ap 
Tesigqn/execute  wuery 
Create object 

Call program 

Execute command 
Submit job 


Edit source 
liesign display format 
Display Menu 
Sign off 
Typesi BAS, BASF, 
FRTF» GRY, 
Options’ 90 Farms 
Command? 


BSCE » 
RF'G » 


Text 
Src file? 
CF3-Command entry 


Src 


CEL, 
RPT» 


Libt *LIBL 
CF4--Prompt (3,5 & 6 only?) 


» (options) 
»Coptions) 
type, 


Capp), 
Capp), 
object name, 
program name 
command 

(job name), 


P 
app 


Pam for CMI, (text) 


(command ) 


Ttisplay submitted jabs 


Csrcmbr), (typed, (text) 


(srcmbr ) 

{menu >) 

C*¥NOLIST *LIST) 
CLP, CMD, CMNF, I'GSFrF, tr, MXIT, FFs 


CL.» FLI» 


TXT 
Type 


DFU, 
Parm 23 
Log requests: #YES 


Jobdt RHATCH 
CF 6~-DSPMSG 


Obj lib 


Return to your study carrel and continue with the Unit 
Summary of Unit 2 in Module 3. 
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MACHINE EXERCISE 2 —- PROGRAMMER MENU 


This exercise gives you practice using commands entered from » 
the Programmer Menu. 


1. Go to a display station attached to the System/38. 
Sign on with the password M3E1B. 


2. When the Programmer Menu appears, enter option 5 and 
the Display User Profile (DSPUSRPRF) command in order to 
display the user profile named M3E1B. These entries are 


show 


PROGRAMMER MENU 


Select one of the following? 
ile DesignZexecute DFU app 
2- Lllesign/execute  .uery epPp 
Create ob ject 
Catl progrem 
Execute command 
Submit Jjob 
Lbisplay submitted jobs 
Edit source 
Design display format 
Display Menu 
90. Sian off 
Typesit BAS, BASF, BSCF, CHL, CL, 
FRTF, QRY,», REFG, RFT, TXT 


Dption? 5S Farm’ Typet 


Command: dspusrprf usrprf (m3elb) 


n below. 


SYSTEM? ATLEDDREYV 


Capp), ,»Coptions) 

(app), ,Coptions?) 

ob ject name, type, pgm for CMD, (text> 
Program neme 

command 

(job name), ‘(commend > 


Csarcmbr), (typed, Ctext) 

(srcmbr ) 

(menu) 

C(M#NOLIST *LIST) 

CLP, CMD, CMNFEF, DFU, OSPF, LF» MXDF, FPF, FLI>» 


Farm 2% 


Text? Log requests! #YES 


Src filet 


CF3-Command entry CF 4-Fromp t 


3. Take 


Sre tib? #LIBL 
(3,5 & 6 only) 


Obj tibt Jobd? QBATCH 


CF 46-DSFMSG 





a few minutes to study the user profile information. 


When ready, press ENTER to return to the Programmer 


Menu 
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4. Display the library list using the DSPLIBL command as shown 
below. After you have entered DSPLIBL, press FIELD EXIT to 
remove the unwanted material to the right. Then press 
ENTER to process the command. 


FROGRAMMER MENU SYSTEM? ATLEDDEV 


Select one of the following? 


1. 
Ze 
Je 
4. 
ae 
bs 


Types? HAS, 


Option: & 
Command? 


Text? 


Design/execute LIFU 
Hesign/execute query 


Create ob ject 
Call program 
Execute command 
Submit job 


» Coptions) 
» Coptions) 
type, pgm for CMD, 


(aPP)>» 
(app), 
ob ject name, 
program name 
command 

(joh name), 


app 
APP 
(text> 


(command > 


Display submitted jobs 


Edit source 


Design display format 


Display Menu 
Sign off 
BASF’, 
ARY > 
a Farm? 
dsptlibl 


FPRTF >» 


Src file? 


CF 3~Comma nd 


entry 





ESCF , 
REG, 


(srcmbr>), (typed, Ctext)d 
(srembr > 

(menu > 

CHNOLIST xLIST> 

CBL, CLF, CMD, CMNF >, 


RFT » 


CL, 
TXT 
Type 


DFU, BSFF, LF, MXDF, PF, PLI, 


Farm 22 


Log requests: #YES 
jobads anaTcH 
CF S4-DSFMSG 


Src Lib? *LIBL Obj Lib?’ 
CF4-Frompt («3,5 & 6 only) 


What you see displayed is a list of the libraries used for this 
interactive job. The libraries are searched in the top-to-bottom 
order listed. This library list is used whenever *LIBL is specified 
for the library name. As for the interactive job, it started when 
you signed on and will end when you sign off. 


Note that your library name, the one you created in the last 
exercise, iS not on the list. 


Press ENTER to return to the Programmer Menu. 
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5. Back at the Programmer Menu, add your library name, 
LIBxxx, to the library list using the Add Library List Entry 
(ADDLIBLE) command shown below. 


Alternatively, you could use the Replace Library List 
(RPLLIBL) command, but using this command you would 
have to enter all the library names on the list plus your 
library name. 


Press ENTER to process the command. 


Note the message at the bottom of the menu telling you the 
library list was changed. 


FROGRAMMER MENU SYSTEM! ATLEDDEYV 
Setect one of the following? 
L. Design/execute DFU app Capp), ,<aptions) 
Design/execute  uery app Capp), ,Coptions?) 
Create object object name, type, pom for CMD, (text) 
Catl program Program name 
Execute command command 
Submit job (job name), (command) 
Display submitted jobs 
Edit source (arcmbr), (typed, (text) 
Design display format (arcembr ) 
80. Tlisptay Menu (menu) 
Sign off CHNOLIST #lIST) 
Types: BAS, BASF, EBSCF, CBRL, CL, CLF’, CMD, CMNF, DFU, SFE, LF, MXDF, FF, FLI>» 
FRTF, GRY, REG, RPT, TXT 
Option! 5 Farm Type Farm 23 


Command! addlible Lib¢(libxxx) 


Text Log requests! *#YES 
Src filet Gre Lib? *LIBL Obj Lib? Jobdi QRATCH 
CF3-Command entry CF4-Frompt (3,5 & 6 only?) CF 6-DUSFEMSG 


Display the library list again to see the change to the library 
list. Note whether the library name was added as the first or 
last entry in the list. The default is first. 
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6. Next, you are to delete the file APPVMST. You will recall, 
this file was created in your library, LIBxxx, when you 
processed the CPYF command in the previous exercise. 


Enter the Delete File (DLTF) command as shown below. 
Again, after you enter the command press FIELD EXIT to 
remove unwanted material to the right. 


FROGRAMMER MENU SYSTEMS ATLEDTDEV 
Select one of the following? 
1, Design/execute DFU app Capp), »C options) 
2. Uesign/execute  wuery app Capp), ,Coptions) 
3+ Create ob ject object name, type, pam for CMD, (text> 
4. CaLll program program name 
5S. Execute command comma nd 
6. Submit job (job name), (command?) 
Ve Display submitted jobs 
Edit source Csrcmbr), Ctyped, Ctext) 
Design display format (srcmbr ) 
Display Menu (menu) 
Sign off C*NOLIST *LIST> 
Types! BAS, BASF, HSCF, CEL, CL, CLF, CMD, CMNF, DFU, DSGPF, LF, MXIF, FF, FLI, 
FRTF, QRY, RFG, RET, TXT 
Option’ & Farm’ Type? Farm 23 


Command! dlitf filetappymst. libxxx) 


Text Log requests: *YES 
Gre file’ Src Libs *LIBL Obj Lib: Jobd?t QBATCH 
CF3~-Command entry CF4-Frompt (3,5 & 6 only?) CF4-DSF MSG 





The command will fail. The message at the bottom of the 
Programmer Menu tells you why. 


Remember, for this exercise you signed on using M3E1B. The 
password and profile name are the same, so you are operating 
under user profile M3E1B. When you created the file, you 
signed on as M3E1A and were operating under the user profile 
M3E1A. The profile M3E1A created the file and has existence 
or deletion rights for the file; profile M3E1B does not have these 
rights. 


CPF security prevents profile M3E1B from destroying an object 
created by MSE1A. 


To delete the file you must Operate under profile M3E1A. 


To do this you will use a very useful feature of CPF. You will 
start a second interactive job at your display station. 
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3. Create obJject 
4, Call program 

ye Execute command 
4S. Submit job 


7. You begin a second interactive job by pressing the shift key 
and the SYS REQ, the System Request key. This presents an 
entry line, underlined and with column separators, at the 


bottom of the display, as shown below. 


Press ENTER to get the System Request Menu. 


FROGRAMMER MENL 
Select one of the following? 
1. Design/execute DUFU app 

2. Tlesignvexecute yuery app 


Yo Display submitted jobs 


Edit source 


Tiesign display format 


Display Menu 
Sign of f 


Types: HAS, BASF, HSCF, CHL, 


FPRTF, QRY, REG, RET, XT 
Type: Farm 2% 
Command: dLlLtf filecappvmst.lLibxxsx) 


Option’ Farm$ 


Text 
Src file?’ 
CF 3-Command entry 
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CL.» CLE, CMI, 


Capp), »Coptions) 

Capp), ,»Coptions) 

object name, type, pgm for 
Program name 

command 

(job name), (command) 


Cerembr), (type), Ctext) 
Csrcmbr ) 

(menu) 

C*#NOL_LIST *LIST) 


Src Libs *L JBL Ob) Libs 


(SF 4—-F romp ¢ 


(3,59 & & only) 


CMNF, DFU, DSF 


SYSTEM? ATL.AEDDEY 


CMI, (text) 


» LF,» MXDK, FF, FLI, 


Log requests; *YES 
Jobd’ QBATCH 


CF 4-ISFMSG 
Not authorized to object AFFUMST.LIBXXX type *FILE. 


WLLL EEL EE CEE EEE EE 





J 


8. On the System Request Menu, select option 1 to transfer to 
a secondary interactive job. 


SYSTEM REQUEST MENU SYSTEM? ATLEDINEYV 
Select one of the following: 
1. Yransfer to secondary interactive Job 
2. Cancel previous re uest 
3. Display current Job 
4, [lhisplay messages (msg) 
5. Send message ’mag’ tomsgy71 
10, Invoke system reqzuest program at source system, if BGNFASTHR active 
Li. Transfer to source/target system, if BGNFPASTHR active 
90, Signoff CHNOLIST *LIST) 
Options 4. Cr4-Frompt+ (4,5 and 90) 
Farameters: 
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9. When the sign-on display appears, sign on with the 
password M3E1A. 


Enter the DLTF command as shown below. 


COMMAND ENTRY DISPLAY System! ATLEDDEV 


$ dLltf filetappvymst.lLibxxx) 


CF3 — Duplicate CF4 ~ Frompt CF? -—- Low level messages 





The CPF issues a message telling you the file was deleted. 


COMMANTD ENTRY DISFLAY System! ATLEDIEYV 
tt dLltf fileCappyvmst.Libxxx) 
Ob ject AF FVUMST.LIEXXX type *FILE deleted. 
a 


CF3 - Duplicate CF4 — FPrompt - Low Level messages 
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10. Delete your library using the Delete Library command as 
shown below. 


COMMAND ENTRY DISFLAY System? ATLETIDEYV 
3-3 ditlib Lib¢lLibxxx) 


CF3 ~ Duplicate CF4A — Frompt CF? — Low level messages 
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A message, as shown below, tells you that your attempt to 
delete your library failed. The reason is as follows. Your 
first interactive job, the one you signed on with password 
M3E1B, has LIBxxx on its library list. The CPF allocated 
your library to this first interactive job. 


The CPF prevents an unsuspecting user from having a 
library deleted in the middle of a job. 


COMMANTI! ENTRY OLSELAY Systemt ATLELTEV 
tt dlLtLib Lib¢ Libxxx) 
Unable to allocate Library LIKXXxX, 
23 


CF3 -—- [luplLicate CF4 —- Frompt CF? —- Low level messages 





Now that you have seen examples of how CPF security protects 
users, you are ready to complete the exercise. The next few 
steps are simple but you must always be aware of which job, 
M3E1A or M3E1B, you are processing. 
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11. You have no more use for your library, LIBxxx, so you need 
C to delete it. To delete it, you are to sign off and end the job 
(M3E1B) which has the library in its library list. In so doing, 
you will remove the allocation dependency and be able to 
delete the library using the profile (M3E1A) that owns it. 
Remember, you are now in the secondary job M3E1A. 


Now proceed as follows: 
e Press up shift and SYS REQ. 


@ When the entry line appears on the bottom of the 
display, enter 1 and press ENTER as shown below. 
This is the same as entering option 1 on the System 
Request Menu, so you are taking a shortcut. 


COMMAND ENTRY DISPLAY System! ATLEDIIEYV 
$8 diltlib LibClibxxx) 
Unable to allocate Library LIBXXX. 


CF3 -—- [tuplLicate -- CF? — Low level messages 


eae 








System/38 Operation 3-25 


12. When the Programmer Menu appears you are returned to 
your first job (M3E1B). Sign off by entering option 90, as 
shown below. 


FROGRAMMER MENU SYSTEM? ATLEDDEYV 


Select one of the following? 
1. Resign/execute DFU app 
2e Lesign/execute query app 
3. Create object 
4, Call program 

Execute command 

Submit job 

Display submitted jobs 
Edit source 

liesiqn display format 
Display Menu 


Capp), »Coptions) 

Capp), , options) 

object name, type, pam for CMI, ¢Ctext) 
Program name 

command 

€job name), Ccommand ) 


Csrembrd, (type), (text) 
Csrcmbr ) 
(menu ) 


Sign off €*#NOL.IGT #lLIST) 
Types; BAS r HASF r BSCF r CHL r CL r CLF r Cmri rl CMNI ry Lit U , CSFF ry LF ry MXOF r FF ry F'L.I r 
PRIF, QRkY, RFG, RFT, TXT 
Option? 9O Farm$ Type? Farm 2% 
Comma nd $ 


Text Log requests: *YES 


Gre file?’ Sre Lib’ *LIBL Obj Lib? 
CF3-Command entry CF4--Promet (3,5 & & only?) 


Jobd? QHATCH 
CF 6-lISFMSG 





When job M3E1B ends, you are automatically switched to the 
other interactive job (M3E1A). 
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13. Duplicate the last command by pressing CMD 3, then press 
ENTER. 


COMMAND ENTRY DISPLAY System! ATLEDDEV 


ti dit lib LibClLibxxx) 
Unable to allocate Library LIBXKXxX, 
$3 dlLtlLib Lib@Ltibxxx) 


CFS - Duplicate CF4 - Fromet CF7 ~- Low level messages 





14. When the library is deleted, enter the SIGNOFF command 
and press ENTER. 


Return to your study carrel and continue with the unit 


summary in Module 3. 
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NOTES 
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NOTES 
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PURPOSE 


TIME ESTIMATE 


MODULE OBJECTIVES 


Chapter 4. Building the Data Base 


This module teaches you the uses of and how to code and 
create System/38 data base files. 


6 hours 


After successfully completing this module, you should be able 
to: 


e List the three uses of a physical file. 


e Using appropriate reference material and a field reference 
file, code the Data Description Specifications (DDS) for 
physical and logical files. 


e Use the Source Entry Utility (SEU) to enter Data Description 
Specifications into a source file. 


e Use Control Language commands to create physical and 
logical data base files. 
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TERMS 


The following terms are defined or described in this module: ») 
Source file File level keyword 
Format level keyword Field level 
Key field level Select/Omit 
Access Path Access path sharing 
Format sharing Composite keys 


Field reference file 


MATERIALS NEEDED 


You will use the following reference manuals and coding form in 
this module. They are available in the Guided Learning Center 
Resource Library. 


e Control Language Reference Manual, SC21-7731 


e Control Program Facility Reference Manual—Data 
Description Specifications, SC21-7806 


e Source Entry Utility Reference Manual and User's Guide, 
$C21-7722 


e Data Description Specifications Coding Forms, GX21-7754 J 


At this time, begin your study In the Module 4 text. 
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DESK EXERCISE 1 — CODING A PHYSICAL FILE 


In this review exercise you are to code a physical file using the 
information on the Data File Work Sheet shown below. 


You will find Data Description Specification Coding Forms, 
GX21-7754, in the Guided Learning Center Resource Library. 
You are encouraged to use the DDS Reference Manual 

(SC2 1-7806) in this exercise. 






DATA FILE WORK SHEET 
APPLICATION: PAYROLL FILE NAME PRPEMAST 


PHYSICAL [x] 
LOGICAL [1] |F LOGICAL, PHYSICAL files used: 


















Page_| of _'_ 


FORMAT NAME) FIELD NAME | LENGTH 






KEY FLD. 

TPE FELD. comMENTS 
a 
ZONED 

STREET 
a ee 
ZONED MONTHLY 
ZONED TAXES WITH- 
NET PAY 











When you are finished, return to Module 4 and compare 


your coding with our solution. Please do not look at the 
solution until you have completed the exercise. 
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DESK EXERCISE 2 — CODING A PHYSICAL FILE 


4-4 2ZR30-0990 





For this exercise, you are to code the DDS for a physical file to 
be used as an Accounts Payable transaction file. The file name 
will be APP TRNxx—which is translated as: 


AP for Accounts Payable 

P for Physical file 

TRN for TRaNsactions 

XX for the initials of your first and last names—to 


identify the programmer creating the file. 


The record format is to be named PAYBLE (watch the spelling 
P-A-Y-B-L-E}. The format includes all the fields shown on the 
Data File Work Sheet shown on the facing page. 


All the fields used in this format are defined in a field reference 
file named APPFREF which is located in a library named GLC. 


You may do either of the following: 
e Code the DDS including all field definitions. 
e Reference the field reference file for this data. <& 


If you code the field definitions, have the CPF check that a valid 
status code is entered. 


Whichever method you use, be sure the file has an arrival 
sequence access path. 


J 


DESK EXERCISE 4 — CODING A JOIN LOGICAL FILE 


C In this desk exercise you are to code a join logical file to get the 
following fields in the order shown from the Accounts Payable 
Transaction file APPTRN and the Accounts Payable Vendor file 


APPVEND. 

Field Name Description Physical File 
VNDNBR Vendor Number APPTRN 
VNDNAM Vendor Name APPVEND 
MERCH Merchandise Amount APPTRN 
BALOWE Balance Owed APPVEND 


Select only those records from the APPTRN file with a T in the 
STATUS field. T is the code for records to be paid. 


The records are to be selected in vendor number sequence from 
the APPTRN file, which is the primary file. 


The record formats for the two physical files are shown for your 
information. 


APPTRN File Format 


REF CAPFPFREF -GLC) 
R PAYBLE 
VNOUNBR 
INUNER 
DATREC 
MERCH 
NET 
STATUS 
DTPAID 
CHECK 
TEP TNO 


A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 


DADDBDAADDDABAA 
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APPVEND File Format | 


SEQGNBR 


Lt coe 3 cae oes 4 sare ooo DF eee ooo G&G ove ooe F eee ose O see 


REF CAPF'FREF ) 

R VENDIMAST TEXT (C*VENDMAST DB FORMAT? > 
VUNIINBR 
VNDNAM 
VNTIALIL 
VNTIALIZ 
VNDAIS 
VNDZIP 
VNDIACT 
VNIIPHN 
VTRMF'C 
VTRMITIA 
VNIICLS 
ACTCE 
VNIISLS 
LCTMTN 
OCTYTLE 
FCHMTD 
PCHYTE 
BRAL.OWE 
SRYRTG 
LELRTG 
COMNTS 
SCHCOR 


A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
a 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 


AAMAAAARADAADARDDAARBAADAAADAADAAD 





Use the DDS coding form GX21-7754. ) 


You are encouraged to use reference material when questions 
arise In coding the specifications. 


When you finish coding your join logical file, you will find a 
solution on the next page. 
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DESK EXERCISE 4 SOLUTION 


Illustration of listing of Source statements: 


A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 


so 68 6 ose 3 cas eee 4 eee 


R TOREFAIL 


J 


VNDNERK 
VNDNAM 
MERCH 

BHALOWE 
STATUS 
VNDNBR 
STATUS 


ooo DS oss ose G ses ese -F bee ooe GB cas 


TEXT(*TO BE FAID FORMAT? > 
JFILECAPPTRN AFPVENT) 
JOINCAPPTRN APFYVEND) 
JFLOCVUNDNER VANDNER > 

JREF (i> 


VALUES (°T?* > 





The use of JOIN in this case is optional because there are only 


two files. 


You could use COMP(EQ ‘T’) instead of VALUES. 


Save your DDS coding. 


You will be using it in a machine 


exercise in the next study unit when you create your join logical file. 
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MACHINE EXERCISE 1 — CREATING FILES 


In this exercise you are to create the two files you coded for > 
Desk Exercises 2 and 3. In Desk Exercise 2 you coded the 

specifications for a physical file named APPTRNxx. In Desk 

Exercise 3 you coded the specifications for a logical file named 

APLTRNxx. 


You should have a copy of the IBM System/38 Source Entry 
Utility Reference Manual and User’s Guide, SC21-7722. 


For your convenience in using SEU, the more common line 
commands are included in Appendix B of this manual. 


Be aware that the two files you create here will be used in later 
exercises. Because of this, it is very important that your DDS 
code is essentially the same as one of the desk exercise 
solutions for the physical file and that both files are successfully 
created. Also, be sure to get your listings from the printer and 
keep them. 


1. Go to a display station attached to a System/38. 
e Sign on using the password GLC. 


e Enter your first and last initials on the Student Exercise 
Menu and enter option 2 to get the Programmer Menu. 


IBM SYSTEM/38 APPLICATION PROGRAMMING 


STUDENT EXERCISE MENU 


1 - COMMAND ENTRY DISPLAY 
2 - PROGRAMMER MENU 


ENTER YOUR FIRST AND LAST INITIALS 
ENTER YOUR CHOICE OF INTERFACE 
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Next, you will see a WELCOME display. Please read this display 
carefully and enter your name. When you press ENTER, your ID 
for the machine exercises, which are the initials you entered on 
the previous display, and your name are recorded for this 
course. From now on when you sign on with GLC and enter 
your ID on the Student Exercise Menu, you will see a WELCOME 
BACK display with your name on it. 


2. On the Programmer Menu, enter option 8 and the other 
values shown below. Please take a little extra time and 
check your entries before pressing ENTER. Entries are used 
in the Edit Source (EDTSRC) command that is processed 
when you select option 8. 


FROGRAMMER MENU SYSTEM: ATLEDDEV 
Select one of the following? 
i.e Design/execute DFU app Capp), ,Coptions>) 
2 Desien/execute® query app Capp), ,»Coptions?) 
3+ Create ob ject object name, type, pgm for CMD, (text> 
4. Call program program name 
S- Execute command comma nd 
G&. Submit job (job name), (command) 
Yo Display submitted jobs 
8S. Edit source (srembr)>, (typad, (text> 
9, Design display format Carembr ) 
60. Display Menu (menu) 
90. Bign off CHNOLIST #LIGT) 
Typest BAS, BASF, BSCF, CBL, CL, CLF, CME, CMNF , DFU, LSEF ,» LF, MXDIF , PF > PLI, 
Detion: 8 Farm: AFF TRNXX Type? FPF Parm 22 
Comma nei? 


Text? Log reauuests! #YES 
Sre filet QUESSRC Src Libt GLC Obj Lib? GLC Jobdt QBATCH 
CF3-Command entry CF4—Frompt (3,5 & 6 only?) CF 4-D0SF MSG 





Note that as discussed in Unit 5 of the module text, if you 
leave the source file (Src file:) entry blank, the name defaults 
to QDDSSRC. This is the default when the type is a file. 
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3. Request prompting by entering the line command IP as 
shown below, and pressing ENTER. 


EDIT US Wii Mbrt AFPPTRNXX Scant 

FMT FF coca rPeseaceser eT. Name++++++Rlent++TipB,. eee eo eFunct jo ngt++4+4+4444444444444+ 
TF HHHMBEGINNING OF DAT AMM 

y 3 HHMHMHHENT! OF DATA MMMM 


Enter I (insert), IFfFF Cinsert under format ff>d, IPff Cinsert with 
prompt ff> or A (copy after) at cursor. FF ff values aret 
Ax*,FF,NC 
For more help, press HELF. 





4. Enter the DDS for the physical transaction file you coded in 
Desk Exercise 2 of this chapter. 


You may find the following suggestions helpful: 


e If you have comment lines with your DDS, enter them 
after you enter all your specifications using the line 
command |, or IPA* if you want the comment prompt. 


e After entering data in numeric fields on the prompt, 
press FIELD EXIT to ensure correct right adjustment of 
the data in the field. 


5. When you have finished, exit SEU by pressing command key 
1 (CMD 1). 
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6. Verify the EXIT display entries. 


SEU EXIT 


Select one of the following: 
. Exit without update 
. Exit and update member 
. Exit and create a new member 
. Update member, no exit 
. Create member, no exit 
. Return to editing 


Option: 2 
—_ MEMBER FILE LIBRARY 
For options 2 to 5: APPTRNxx QDDSSRC GLC 
Text (description): 
Resequence member (Y N): : T.00 Yncrement: 1.00 


For options 1 to 3: 
Return to member list (Y N): N 


For options 1 to 6: 
Print source listing (Y N): N 


TOTAL RECORDS ADDED CHANGED DELETED SYNTAX ERRORS LEFT 
14 14 





e Take option 2 — Exit and update the member. This is the 
only acceptable option for this exercise. If the option 
displayed is 6 you have syntax errors. Press ENTER to 
return to your source member and correct the errors. 


e The member name — APPTRNxx 
e The source file name — QDDSSRC 
e The library name — GLC 


Note: Your TOTAL RECORDS and ADDED values may not 
agree with those shown. The discrepancy could be a 
difference in the number of comment records. 


7. If the entries are correct, exit SEU by pressing ENTER. 
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8. Back at the Programmer Menu, you are ready to create your 
physical file. To do this, enter option 3 and press ENTER. 
Leave the other entries as they were. 


When you select option 3, object creation is done by 
submitting the create command as a batch job. You will see 
this message at the bottom of the display. 


Alternatively, you could execute a create command 
interactively using option 5 and entering the command on 
the Command line; or, you could also press CMD 3 and 
enter the create command on the Command Entry Display. 


9. Creating the physical file takes a minute or two. When you 
hear the buzzer or after two or three minutes, press CMD 6 
to display messages. The last message listed tells you 
whether or not your file was created successfully,. 


In either case, get your listing from the printer. 
Examine the listing for this message: 
CPC7301 File APPTRNxx created in library GLC 


If the message is at the end of the listing, be sure the library 
name is GLC. If it isn't, delete the file (DLTF) from the library 
it is in, enter GLC for the object library name on the 
Programmer Menu, and create your physical file again. 


lf your file was not created, get your listing from the printer 
and find what is wrong. Enter option 8 to get your source 
member back in order to correct the errors. 


Remember, you cannot create your logical file until you have 
successfully created your physical file. 


When your file is successfully created, proceed to item 10 
to create your logical file. 


4-14 ZR30-0990 


In the following steps, you enter the DDS for and create your 
logical transaction file. 


10. At the Programmer Menu, enter option 8, your logical file 
name, and LF for the type. Leave the entries on the bottom 
line as they are. Again, take the time to check your entries 
before you press ENTER. 


11. Enter the DDS source for your logical transaction file as you 
did with the physical file. Not that this time, when you 
request prompting with IP, the prompt format is LF. 


12. When you finish entering your specifications, exit with CMD 
1. The option must be 2 on the EXIT display. If not, return 
to the source member and correct your errors. 


13. Create the logical file using option 3. 


When you hear the buzzer or after a few minutes, press 
CMD 6 to display the messages. If your file was not 
created, get your listing from the printer and correct your 
source statements. 


14. After successful creation of your logical file, get your listing 
or listings from the printer. 


15. Press CMD 6 to display messages. When the messages are 
displayed press CMD 8 to remove them as a courtesy to 
the next user of the display station. 


16. Sign off by entering 90 and blanking our the Parm field. A 
blank Parm field results in no job log being printed, the 
same as if you had entered *NOLIST in the Parm field. 


When you have completed the exercise, return to 


“Review of Machine Exercise 1” in the Module 4 text. 
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MACHINE EXERCISE 2 — CREATING A JOIN LOGICAL FILE 
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You are to enter the specifications you coded for a join logical 
file and then create the file. To do so, follow these steps. 


1 


Go to a System/38 display station and sign on with the 
password GLC. Select the Programmer Menu. 


Enter option 8 and the following on the Programmer Menu: 


Parm: APJL4xx This is the name of your source 
member. Replace xx with your 
initials. 

Type: LF 

Src file: QDDSSRC (Optional entry) 

Src lib: GLC 

Obj lib: GLC 


Jobd: OBATCH 


Enter the source you coded in Desk Exercise 4. Be sure 
option 2 appears on the SEU EXIT prompt. 


. On returning to the Programmer Menu enter option 3 to 


create the file. 
Get your compilation listing from the printer. 


If the file was not created, find and correct the errors using 
SEU (Edit Source). Then, create the file again. 


When the file is created successfully, you have completed 
the exercise. 


As a courtesy to other students using this display station, 
please display messages with CMD 6, then press CMD 8 to 
remove your messages. 


Enter 90 and blank out the Parm field to sign off. Please get 
your listing from the printer. 


Return to your study carrel and continue your studies with 


the summary of Unit 5. 











C 


MODULE SUMMARY 


Data base data management routines allow you to create and 
process physical and logical files. 


Physical data base files can be used as: 
e Field reference files 

e Source files 

e Data files 


Logical files provide the flexibility to meet the various needs of 
your applications. The logical file's format can be the same as a 
based-on physical file format or it can be selected fields of a 
physical file format. If more than one physical file is specified for 
a logical file format, any field specified must exist in all the 
physical files. 


Normally, select/omit is used in building and maintaining an 
access path, whether it is a keyed sequence or arrival sequence 
access path. However, when DYNSLT is specified, select/omit 
is done when the file is read and over the whole file. 


Whenever possible, a logical file shares the keyed sequence 
access path of an existing physical or logical file. 


Both physical and logical files are described to the System/38 
using Data Description Specifications (DDS). 


Once the DDS are coded, you can use the Source Entry Utility 
(SEU) to enter the DDS directly into a source file. 


You use the create file commands to create the files based on 
the DDS in the source file. 


Once the file is built, other commands must be used to place 
data records in the files. 


You can give data files, source files, and other objects qualified 
names that do the following: 


e Help the system find them more quickly 


e Specify the exact library to which a newly created object 
should be assigned 


The job’s library list is used to locate objects when a qualified 
name is not specified. 


A library can be added to the library list with the ADDLIBLE (add 
library list entry) command. 


An entire library list can be changed using the RPLLIBL (replace 
library list) command. 


A library list can be displayed using the DSPLIBL (display library 
list) command. 
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NOTES 
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NOTES 
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Chapter 5. Introduction to 
Interactive Processing 


PURPOSE 
The purposes of this module are twofold: 


e To introduce and define the terminology associated with 
interactive processing 


e To describe System/38 program products that support 
interactive processing 


TIME ESTIMATE 


30 minutes 


MODULE OBJECTIVES 


After successfully completing this module, you should be able 
tO: 


e State the factor common to all interactive programs. 
e Define an interactive “job.” 


e List two or more IBM System/38 tools that can create 
interactive programs. 


TERMS 


The following terms are defined or described in this module: 
Job 
Data Entry 
File Maintenance 
Execution Priority 
Device Files 
Interactive Subsystem 
Inquiry 
Time Slice 


At this time, begin your study in the Module 5 text. 
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Sar 


PURPOSE 


TIME ESTIMATE 


MODULE OBJECTIVES 


MATERIALS NEEDED 





Chapter 6. Data File Utility 


The purpose of Module 6 is to teach you how to use the Data 
File Utility (DFU). 


As you recall from Module 4, Building the Data Base, creating 
data base files allowed only the structure of the files to be built. 
The files were created without data. At that time, your files 
were nothing more than shells waiting to be filled. Also it was 
Stated that one way to add records to your files was to use DFU. 


Without writing programs, you can use DFU to create 
applications to: 


e Add records to a file. 
e Update file records. 
e Delete file records. 


e Display contents of a record. 
2% hours 


After successfully completing this module, you should be able to: 


1. Select the appropriate Control Language command(s) to use 
the Data File Utility (DFU) program product. 


2. Recognize the various prompt displays of DFU and enter the 
correct information according to given application requirements. 


3. Use DFU to enter several supplied data records, display data 
records through inquiry, and change data records as part of 
file maintenance. 


For this module, you will need a copy of the Data File Utility 
Reference Manual and User’s Guide, SC21-7714. 


At this time, begin your study in the Module 6 text. 
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MACHINE EXERCISE 1 — CREATING A DFU APPLICATION 


In this exercise, you are to create and run a DFU application to 
add records to your transaction logical file APLTRNxx. You 
created this file and its associated physical file APPTRNxx in the 
Module 4 exercises. You are to use the logical file because DFU 
requires a file with a keyed-sequence access path. 


APLTRNxx used the record format PAYBLE of the physical file 
APPTRNxx. The record formats of both files are shown below 
for your convenience. 


APPTRNxx 


SEQNER#... 


100 
200 
300 
400 
300 
400 
700 
B00 
900 
1060 
1100 


a6 6 i eo 6 ¢ eee 2 eee eee 3 eee eos 4 soe ove FE vee ose © see eos 0 wae ese B eae 


REF CAPPFREF .GLC) 
R PAYBLE 
VNDINER 
INVUNBR 
DATREC 
MERCH 
NET 
STATUS 
UTPAID 
CHECK® 
EF TNO 


>P?PPPPrPPPPYPP?>?D 
AAADBMAAADA 
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SEQNER#... 


100 
200 
300 
400 
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oes i *# ee ose 2 280 ose 3 soe ose 4 see + * * cee 0 ee eos BO cee 


AXLOGICAL FILE APL TRNXX 
R PAYBLE FFILE (APF TRNXX) 
K VNDNBR 
K INVNBR 
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You are to select the following listed fields for this DFU 


application. 
VNDRNBR 
INVNBR 
DATREC 
MERCH 
STATUS 
DEPTNO 


Vendor number 

Invoice number 

Date received 

Merchandise amount 

Status code; E for each new record 


Department charged 


For each new record added to the file the status code is to be 
E. By selecting extended field definition, column XDEF, on the 
BASIC FIELD DEFINITION PROMPT display, you can have DFU 
automatically add the E with each record added to the file. 


As you may know, the fields you do not select will contain 
blanks for a character field and zeros for a numeric field when 
they are written to the physical file. 


A display-by-display solution follows the instructions for this 
exercise. It is put there for two purposes. One, if you get 

hopelessly bogged down in doing the exercise, you can use it to 
help you do the exercise. Two, after you successfully do the 
exercise, you may want to compare the way you did it with the 


course solution. 
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Instructions 


Please read all steps before you do this exercise. 


1. Go to a display station attached to a System/38 and sign on 
using the password GLC. 


2. Select Option 2 for the Programmer Menu on the Student 
Exercise Menu. 


3. When the Programmer Menu appears, enter Option 1 and 
press ENTER to get the first DFU Menu. 


Try to do this exercise on your own. If you are unsure of 
what to enter on a prompt display, first use the HELP text. If 
that fails, use the DFU reference manual (SC21-7714) or the 
Module 6 student text. In any event, take the time to make 
this exercise a learning experience. As a last resort, you will 
find a solution to this exercise on following pages. 


Please observe the following: 


e Name the DFU application APD1xx, where xx are your 
initials. 


e Be sure the object library name is GLC. 


e Create the DFU application in batch using the job oS) 
description QBATCH.GLC. 


e Remember to specify your logical file APLTRNxx. 


One last precautionary note before you proceed, DFU fills the 
values on some of the early prompt displays with the values of 
the previous user. Be sure you check every entry to see that it 
reflects your specifications. 


Remember, you can always go back and change a value on a 
previous prompt display using CMD 2. 
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4. After you successfully create your application, run It. 


lf the menu displayed does not include an option to run a 
DFU application, press CMD 2 until you get a previous 
prompt from which you can run your application. 


When the application display appears, look at the upper right 
hand corner and make sure it is in ADD mode (CMD 9). 


Enter the following transactions. 


Vendor _ Invoice Date Merchandise Dept. 
No. No. Rec'd Amount No. 
00714 A1005 08 2183 575000 010 
0022 1 156 041083 750075 012 
05075 JN-825 06 08 83 56000 010 
00714 A0875 05 16 83 80000 220 
00221 782 08 10 83 60000 102 
10504 2020 08 22 83 3500 010 


5. After entering all the data, press CMD 1 to exit. 
Press ENTER to exit from the EXIT APPLICATION prompt. 


You may need to press CMD 1 several times to get back to 
the Programmer Menu. 


6. List your files using the following Copy File commands: 
CPYF APPTRNxx TOFILE(*LIST) PRTFMT(*HEX) 
CPYF APLTRNxx TOFILE(*LIST) PRTFMT (*HEX) 


7. Get the two listings and compare them. Note the arrival 
sequence of the physical file in contrast to the keyed 
sequence of the logical file. 


8. Remove your messages by pressing CMD 6, then CMD 8. 


Sign off, be sure to get your listing from the printer, and 
return to your study carrel. 


Continue your study of DFU with the “Unit Summary” of 


Unit 4 in Module 6. 
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SOLUTION FOR MACHINE EXERCISE 1 
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FROGRAMMER MENU 


Select one of the following’ 
i. Design/execute DFU app 

Tesiqn/execute wuery app 
Create object 
Call program 
Execute command 
Submit job 
Display submitted jobs 
Edit source 
Design display format 
[Tisplay Menu 
Sign off 

Types! BAS, BASF, BSCF, CHL, 


SYSTEM? ATLEDDEYV 


Capp), »Coptions) 

(app), »,Coptions) 

object name, type, pam for CMI, (text) 
program name 

comma nd 

(job name), Ccommand) 


Carcmbr), (typed, (text) 
Carcmbr ) 

(menu) 

C¥#NOLIGT wLIST) 


CL, CLP, CMD, CMNF, DFU, DSFF, LF, MXDIF, FF, PLI, 
FRTF, QRY, RPG, RPT, TXT 


Option: 1 Parm’ Typet Parm 2! 


Command ’ 
Texts 


Gre fitet’ 
CF3-Command entry 


Setect one of the following’ 


Log requests! #YES 


Src tibt #LIBtL Obj Lib? Jobd!: QBATCH 
CF4-Prompt (3,5 & 6 only) 


CF 4-0SFMSG 


DFU MENU 


i. Create, change, or delete an application 


2. Execute an application 


3. Manage existing applications 


Option’ ai 


a 


Fress MELF for instructions. 
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Press CF1 to exit. 





SOLUTION FOR MACHINE EXERCISE 1 


DFU CREATE/CHANGE/DELETE MENU 


Select one of the following and enter vatues below! 
1. Display information about an apelication 
2-e Create 4 new application 
3. Change an existing application 
4. Telete an existing application 
3» [tisplay status of applications submitted 


Options 2 


—— 


Application name APIAXX (a—-ApplLication selection List) 
Library name GI_C 


HEL F~-Help CF2-Frevious display 


DFU CREATE PROMPT 
fleplication name? APTII XX Library?t GLC 


Enter information for new application?’ 
Tescriptiont typ add records to your transaction file 
File name? AFL. TRNXX (x#-File selection tist) 
J.ibrary name? GLC 


HELF'—-He lp CF2-Fyevious display CF3—-Fite information 
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SOLUTION FOR MACHINE EXERCISE 1 


APFLICATION CONTROL. FROMFET 
Application name? AFI 4. XX 


Library? 
File name? AF'LTRNXX 


Library? 
Flace an X next to display size? 
Frimary display size’ x _. 12x80 


Take defaults after field selection?’ N CY¥Y-Yes 


HELE fle Lp CK2-Frevious display 


RECORE FORKAT REVIEW PROMPT FOR FILE AFPLTRNXX 


For each record format to be used, enter R to review the fields, A to select all 
fields, or E to enter the fields Later? ° 
RECORD FMT DESCRIFTION 
RK FAYBLE 
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SOLUTION FOR MACHINE EXERCISE 1 


C 


FIELD REVIEW FROMF'T FOR RECORD FORMAT FPAYRILE 


Enter an X next to eath field to be used or enter x*ALL? 
X ATTR FIELLID NAME LENGTH TYFE DESCKIF TION 
UNIINER E F VENTOR IT) NUMBER 
KK INVUNERK VIENTDORS INVOICE AMOUNT 
DATREC DATE RECELVEL 
MERCH MERCHANDISE AMOUNT 
NET NET AMOUNT PAIL 
STATUS E<=ENTERELD T=TO PAY DeDELETE F=<FaArr 
UTFAILTS RATE FAIL 
CHECKS CHECK NUMBER 
NEPTNO DEPARTMENT CHARGED 


ms 
v4 


Ix | [>< ]>< Joc] 


VTUITD UTD 


[x | 


HEL_F--He Ly CF2-Frevious display CF13-Status 





ENTRY FORMAT DEFINITION PROMPT 


For recorced format name FAYRILE 
Entry format identifier? 
Entry format description? 
Nisplay one field per Line? 
Display multiple records} 
Redisplay changes? 

Chain to entry format IB 
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SOLUTION FOR MACHINE EXERCISE 1 


HASIC FIELDID DEFINITION FROMPT FOR RECORD FAYBLE 


Define format ID AA — FAYBLE 


FIELT NAME ORTIER INFUT VISFLAY VERIFY XTEF XVAL 


VNDINBR_ wm me th a. O 
INVNEER__ wee 
NATREC..__ = a0 
HERCH.__.. = ~~ 420 
mTATUS_._..- 
DEPINO__.. 


ee ee 
Ae ee ed a ee ee ee 
pe re ng ee 
a re 
2 eee ee ed 
ree ere ee er ee et ed 
ee 
ae re a es ee ee ee ee 


eg ee ee ee ee ee ee 


EXTENIED FIELDID NEFINITION FPROMET FOR FIELD STATUS 


Enter the following character 

Label? STATUS 
OF 

RECORI! 


Yefault spacing? 

Newline? 

Lowerrnase entry’ 

Initial value? 

Autodup % 

Field exit reguired!t *YES 
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field attributes? 


If *NO, enter number of 
Label location: 
Alpha characters only? 


eapaces 


1 


—_—_s 


*ABOVE 


*NO 





C 


SOLUTION FOR MACHINE EXERCISE 1 


ENTRY FORMAT NEF INITION FROM T 


For record format name FAYELE enter: 


Entry Format identifier 
Entyvy format clescriptio 


Nhe 


Display one fFreld per Line: 
Display multiple records: 
Redisplay changes: 
Chaitin to entry format J 


Enter the followings: 


lii 


AUNT T CONTROL FROME T 


Add/cdeleate records allowed? KRYES 


Change records allowed? 
Key changes allowed’ 
Print additions? 
Frint changes? 
Frint deletions? 
lata error option 


YES 
*YE 
*NO 
*NQO 
NC) 


CHNOTIF Y *ICISFLAY *C#HANGE) 3 «NOTIFY 
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SOLUTION FOR MACHINE EXERCISE 1 


EXIT APPLICATTON DEFINITION MENU 


Select one of the following’ 
lL. Restart definition 
Modify definition 
Tlelete definition 
Save definition 
Create application interactively 
Create application in batch 


Options 6 


IiisplLay fmt *AA’® red fmt FAYHBLE too Large for console. 


AFFLICATION CREATION FROMF'T 


Enter the following’ 
Application name AF DALXKX 
Library names; GLC 
Public authority? €1-Normal 2-None J3-ALL) 
Adopt owner’s user profiles: (Y-Yes N-No) 
Source Listings (Y-Yes N-No) 
Ttume internal data areas? CY¥-Yes WN-No) 
Generated code Listing? (Y-Yes N-No) 


Job description names QHATCH (#-Job description List) 
Library name$ GLC 


Lisplay fmt *AA® red fmt FAYELE too large for console. 
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C 


SOLUTION FOR MACHINE EXERCISE 1 


DFU CREATE /CHANGE/DELETE MENU 


Select one of the following and enter values below?’ 
1. Display information about an application 
2. Create a new application 
3. Change an existing application 
4. Delete an existing application 
a3» Lisplay status of applications submi (ted 
Options 


= 


Application name? AF LIX (*¥-AppLlication selection List) 


Library name’ GLC 


HEL. He Lp CF2-Frevious display 
Application definition saved in program APIULXX.GLC. 


DFU CREATE/CHANGE /DELETE MENU 


Select one of the following and enter values below! 
1. Display information about an application 
2. Create a new application 
3. Change an existing application 
4, Telete an existing application 
5S. Display status of applications submitted 


Options’ 


Application naine? APTI XxX (*—Application selection List) 
Library neme GLC 


HEL.P—-He Lp CRO2-Previous diapblay 
Job APTIIXX,.GLO.004913 submitted for application AFDAXX.GLC. 


Data File Utility 
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SOLUTION FOR MACHINE EXERCISE 1 





DFU MENU 


Select one of the following? 
1. Create, change, or delete an application 
2. Execute an application 
3. Manage existing applications 


Detion? Z. 


Fress HELF for instructions, Fresas CFi to exit, 


DFU EXECUTION MENU 


Seiect one of the following and enter values below! 
1. Display information about an application 
2e Change data (add, delete, change, or verify records?) 
3. Display data (display data base records) 


Optiont 2 


Application nane? APD1XxX (n—-App lication selection List) 
Library name? GLC 


HEILF—He Lp CF2-Previous display 
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SOLUTION FOR MACHINE EXERCISE 1 


C 


DE U CHANGE TATA FRCGMET 
App Lination names APTI KK Library: 


Enter application execution tntormation: 
Verify records: N CY¥--Yes N~No > 
Kun identef rert 
File names Ak L TRNXX (a-File selection List) 
Library names Gl 
Member neaines (#—-lList Klank-F irst member > 





HEEL ble Lp CRroO-kreviraus disse Lay CFi3s--F tile information 





AA FAYERILE ARTI XX CHANGE 


VJENIOK VIENTO 
INVOT CE 
NUMBER 
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SOLUTION FOR MACHINE EXERCISE 1 
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AA FAYELE 


VENIIOR 
NUMBER 


AA FAYHRILE 
VE.NIIOR 
NUMBER 


00714 
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VE.NIIOR 
INVOICE 
NUMBER 


VENDOR 
INVOICE 
NUMBER 


ALOOS 


APTN XX 


DATE MERCHANDISE 
RECEIVE AMOUNT 


AFP ILXX 


DATE MERCHANDISE 
RECEIVED AMOUNT 


082183 w PIOO0 


STATUS 
OF 
RECORD 


E 


STATUS 
OF 
RECORDED 


E 


ALI 


DEPARTMENT 
NUMEER 


ADL 


DEPARTMENT 
NUMBER 


010 








SOLUTION FOR MACHINE EXERCISE 1 


EXIT AFFILICATION FROMFE'T 


Enter the following? 
Exit application?’ 


ADDED DELETED CHANGE.T VERIFIED 
& O Oo oO 





IEU CHANGE DATA FROME T 
Application name? APTILXX library? GLC 


Enter application execution informations 
Verify records; N CY--Yes N-No > 
Run identifier: 
File name? AFL TRNKX (*-File selection List) 
Lifhrary name’ GLC 
Member name? (*-List Blank-First member ) 


HEF -He tp CR2-Fyrevious display CF3-Fite information 
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SOLUTION FOR MACHINE EXERCISE 1 





DFU EXECUTION MENU 


BSelect one of the following and enter values below! 
1. Display information about an application 
2. Change data (add, delete, change, or verify records)? 
3. Display data “(display data base records) 


Option’ 


Application name? AP LAXX (#-AppLication selection List) 
Library name? GLC 


HEIF-He Lp CF2-Frevious display 





DFU MENU 


Select one of the following! 
1. Create, change, or delete an application 
2. Execute an application 
3e Manage existing applications 


Option? 


Fress HELF for instructions. Fress CFi to exit. 
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SOLUTION FOR MACHINE EXERCISE 2 


C 


DFU CREATE /CHANGE/IELETE MENU 


Select one of the following and enter vaiues below? 
1. Display information about en application 
2. Create a new application 
3. Change an existing application 
4. Delete an existing application 
5S. Display status of applications submitted 


Option’ 3 


Application namet APD AXX (s-AppLlication selection List) 


Library name?! Hic 


? 


HELF-HelLe CF2-Previous display 





TU MODIFY MENU 


Select one of the following? 
Le Entry format definition 
2. Field definition 
3. Auclit control parameters 


Option 
Entry format identifier’ 
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SOLUTION FOR MACHINE EXERCISE 2 


ENTRY FORMAT UEFINITION PROMPT 


For record format name FAYBLE enter ?~ 
Entry format identifier? AA 
Entry format descriptiant FAYBLE 
Display ene field per Line: ND 
bisplay multiple records? RYES € 
Redisplay changes: *NO 
Chain to entry format [Pt 


IEW CHANGE DATA FROMF’T 
Application name’ ALIA XX Library$ (3t.C 


Enter application execution information’ 
Verify records’ N CY--Yes N-No > 
Run identifier’ 
File name? AVL. TRNXX (*#-Fjile selection List) 
Library name? GLC 
Member name’ (%-List Blank--Firet member > 


HEN FoHe Lp CR2-Freviougs disp lay CF3-File information 
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SOLUTION FOR MACHINE EXERCISE 2 


C 


AS FAYELE ARTIAXX CHANGE. 
VE NTIOFS VENTIOR 
NUMEER TNYOUICE 
NUMBER 


Aa FAYRBUE AP DLXX ADL 


VENDOR VENDOR NATE MERCHANDISE STATUS DEFPARTMENT 
NUMBER INVOICE RECEIVE AMOUNT OF NUMBER 
NUMBER RECORD 


MMMM MPAA 
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4A FAYBLE 


VENTIOR 
NUMBER 


QQ R21 
10204... 


HA FAYELE 


VENTIOR 
NUMBER 


LO504... 
10504. 
10504. 
10504. 
10204_ 
102504. 
1L0=04_ 
10204... 
10%04._ 
LOnO4... 
10504... 
10504_. 
10204. 
LO504_ 
10504_ 
10504... 
10504... 


6-24 ZR30-0990 


VENDOR 
INVOICE 
NUMBER 
Lag... 


2Q2m.. 


VENDOR 
INVOICE 
NUMBER 
2025.......-. 
2025 .....- 


2Q25...... 


a0 2. Wn. 


2Q25__..--.. 


L a 
2025 8... 


2O2D...__... 


2Q22.__...- 


= 
2OR Suu... 


2O20-_._-. 
2025 _._...-. 
2Q2o._-. 
2020_-...— 
2025... 
2O20_._..... 
eQe....... 


2025. _ 


SOLUTION FOR MACHINE EXERCISE 2 


TATE 
RECEIVED 


O82483_ 
083103 _ 


DATE 
RECEIVED 


APTN XX 


MERCHANDISE 
AMOUNT 


a ao QOD. 
a ae LAO 


AFTNAXX 


MERCHANDISE 
AMOUNT 


STATUS 
OF 


RECORD 


E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 


STATUS 
OF 


RECORD: 


E 


OOOO MMM 


ADD 


DEPARTMENT 
NUMBER 


Q10_ 
220_ 


ADT 


DEFARTMENT 
NUMBER 





(_ MACHINE EXERCISE 2 — CHANGING A DFU APPLICATION (OPTIONAL) 


In this exercise you are to change your DFU application 
(APD 1xx) of Exercise 1 to allow for multiple data entry records 
per display. 


You make the change for this exercise on the ENTRY FORMAT 
DEFINITION PROMPT. Although the change is minor, the result 
is significant. 


A solution is given following the instructions. As before, to get 
the most from the exercise, please look at the solution only if 
you get stuck or want to look at the course solution after you 
successfully do the exercise. The solution highlights only the 
DFU displays that you change. 


Please read all the steps before you start doing the exercise. 


Instructions 
1. Sign on using the password GLC. 
Select the Programmer Menu. 
2. Enter option 1 on the Programmer Menu and press ENTER. 


Check the prompt entries as you go through the DFU prompts 
to make sure they represent your entries. 


a 3. When the ENTRY FORMAT DEFINITION PROMPT display 
appears, change “Display Multiple Records” to *YES. 


Press ENTER, then CMD 1 to indicate you are finished 
making changes. 


4. Create the application in batch using the job description 
QBATCH.GLC. 
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5. When you are notified that the application already exists, 
press CMD 11 to delete the existing application. ) 


6. Run your modified DFU application. 


7. When your entry display appears, the mode in the upper 
right hand corner will be CHANGE. Press CMD 9 to change 
to ADD mode. 


8. Enter the following two records. 


Vendor _ Invoice Date Merchandise Dept. 
No. No. Rec'd Amount No. 
0022 1 188 08 24 83 5000 010 
10504 2025 08 31 83 7500 220 


9. Exit the DFU application with CMD 1. 


10. At the Programmer Menu execute the following command 
to see the records you added: 


CPYF APLTRNxx TOFILE(*LIST) PRTFMT (*HEX) 


11. When you get the copy file completion message, press 
CMD 6 then CMD 8 to remove any messages. 


Sign off and get your listings from the printer. 


Return to your study carrel and continue your study with ? 


the “Unit Summary” of Unit 5 in Module 6. 
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SOLUTION FOR MACHINE EXERCISE 2 


EXIT AFFPLICATION FROME T 


Enter the follows ng 
Exit applications Y (¢Y¥-Yes N--No ) 


ATMEL DELETED: CHANGED VER IF TED 


2 0 0 0 
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MODULE CHECK 
You may write your answers in the space provided. 


1. What are the four functions of DFU? 


2. What are the data base file requirements of DFU? 


3. Briefly describe what occurs when the “Fast Path” method of 
DFU is used? 


4. What Control Language command is reserved for Data 
Processing professionals because it can be used for all 
functions of DFU? 


6-26 ZR30-0990 


. What Control Language commands can be used by user 
departments to co the following: 


e Define a DFU application? 


e Create a DFU application? 


e Change a DFU application? 


e Display data using a DFU application? 


e Add, change or delete records in a file using a DFU 
application? 


e Delete a DFU application that is no longer needed? 


Review your answers with “Answers to Module Check” 


in Unit 7 of Module 6. 
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NOTES 
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NOTES 
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NOTES 
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Chapter 7. Display Device Files 


PURPOSE 


Many of your applications will require interactive programs that 
go beyond the functions of the Data File Utility. Whenever you 
write such programs, you must also create display files. 


This module teaches the following: 
e Various uses of display files 
e DDS coding for each of the uses 


e The Control Language command used to create display files. 


TIME ESTIMATE 


4 hours 


MODULE OBJECTIVES 


After successfully completing this module, you should be able 
to: 


e List the two general uses of display files. 
e Describe the purpose of a subfile. 


e Name the three levels of keyword entries on the Data 
Description Specification (DDS) for display files. 


e Given a list of display attribute codes, describe the purpose 
of each. 


e Name the Control Language command used to create a 
display file. 


e Code the DDS for two display files to meet supplied 
requirements. 


e Use SEU to place the DDS in source file members. 


e Use the Control Language command to create the display 
files. 


e Use override commands to test your display files with 
existing programs. 
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TERMS 


The following terms are defined or described in this module >) 
text: 


Two dimensional formatting 
Field attributes 

Attribute bytes 

Function key assignments 


Error message function 


MATERIALS NEEDED 
For this module, you will need: 
e CPF DDS Reference Manual (SC21-7806) 
e SEU Reference Manual (SC21-7722) 
e DDS Coding sheets (GX21-7754) 


At this time, begin your study of Module 7. 





) 





7-2. ZR3O0-0990 


DESK EXERCISE 1 — CODING A DISPLAY FILE 


Cc For this exercise, you are asked to code the DDS for a display 
file that will be used to enter Accounts Payable invoices. The 
format is similar to the display file format created by DFU in 
Module 6. 


The Display Screen Layout Sheet on the facing page illustrates 
the format of the display file you are to code. 


The following points will help you write the DDS code. 


e The Field Reference File APPFREF.GLC can be referenced to 
reduce coding. (See Appendix A of this Student Materials 
Book for field names.) 


e The record format name MUST be APENTR. The supplied 
program you will use to test your display file specifies a 
format named APENTR when it processes the display file. 





e fan incorrect vendor number is entered, the program sends 
indicator 50 to the display file. Therefore, the display should 
include an error message that is displayed when indicator 50 
is “On.” 


The ERRMSG keyword should be coded immediately 
following VNDNBR so that VNDNBR will be displayed in 
reverse image. 


The error message should be: 
INVALID VENDOR NUMBER. 


e Command Attention Key 1 is used to turn on indicator 99 to 
indicate end of job to the program. 
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02 
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When you are finished, compare your coding to the 
solution in Module 7. 





MACHINE EXERCISE 1 — CREATING A DISPLAY FILE 


¢ As you learned in the Module 7 text, this machine exercise 
involves a number of steps. When you sign on the System/38, 
you will: 


e Use SEU to enter the DDS for the Display File. 
e Create the Display File by executing the CRTDSPF command. 


e Execute the OVRDSPF command so that an existing program 
can be used to test your Display File. 


e Run the program and add records to the Accounts Payable 
transaction file via your Display File. 


Read all of the instructions carefully before beginning the 
exercise. 
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Instructions 
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. Go to a display station attached to a System/38 and sign on 


using the password GLCM/7. 


. Select option 2 on the Student Exercise Menu to get the 


Programmer Menu. 


. On the Programmer Menu select option 8 to use SEU to 


enter your source code for your display file and enter the 
following parameters: 


Parm: APDENTxx where xx are your first and 
last initials. 

Type: DSPF 

Src file: QDDSSRC (Optional) 

Src lib: GLC 

Obj lib: GLC 


Jobd: APGLC 


Double check your entries before pressing ENTER. 


. After you enter your source code and return to the 


Programmer Menu, select option 3 to create your display 
file. 


Press ENTER. 


The CRTDSPF command is submitted as a job to the batch 
subsystem. 


. Select option 7 to display submitted jobs. 


Press ENTER. 


J 


2 


6. 


10. 
11. 


On the display you will see an entry for your job 
APDENTxx. Type a 2 to the left of your job name and 
press ENTER. 


A display will appear showing the status of the spooled 
printer files. 


Note that a file called QPDDSSRC which contains your DDS 
source listing is ready to print from an output queue 
(OUTQ) named NMDGLC. No printer is started to this 
output queue. 


The Guided Learning Center printer has been started for the 
Output queue named GLCOUTQ. Therefore, you need to 
change the OUTQ value to GLCOUTQ in order to move 
your output file to this output queue and print your listing. 


. Type a 3 to the left of the QPDDSSRC file to indicate you 


want to get the Change Spooled File Attribute (CHGSPLFA) 
command prompt. 


Press ENTER. 


. Find the OUTQ parameter and change NMDGLC to 


GLCOUTQ. Also, change the library name on the next line 
from GLC to *LIBL. GLCOUTQ is in the QGPL library and 
QGPL is in the user library list. 


Press ENTER. 


. When the Spooled Output Files display appears, note the 


changed OUTOQ value for the QDDSSRC file. 
Press ENTER to return to the Submitted Jobs display. 
Press ENTER to return to the Programmer Menu. 


By now, a completion message should have been issued to 
let you know that your submitted job is finished. Press 
CMD 6 to see the messages. If your job completed 
normally, go to the next step. 


Otherwise, get your listing from the printer, find your 
errors, and go back to step 3 and use SEU to make your 
corrections. 
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commands to override the display file and data file names 


12. At this point you are ready to execute two override ) 
in the program APR21 you will use. 


Select option 5, then enter and execute the following 
commands: 


OVRDSPF FILE({APDENT) TOFILE(APDENTxx.GLC) 
OVRDBF FILE(APLTRN) TOFILE(APLTRNxx.GLC) 


13. Run the program by selecting option 4 and entering the 
program named APR21 for the Parm: value. 


If the data entry display does not appear or appears but is 
not correct, see the following diagnostic tips. One of them 
might explain your error. 


e If the cursor is in the upper left corner and the input 
fields are not underlined, you either did not specify the 
entry fields as input fields or you put the | in the wrong 
column on your DDS. Make sure the | is in column 38. 


e lf a display does not appear you may have a level check 
error. This can occur if certain specifications in your 
display file format are different from those in the format 
of the APDENT file that you overrode. Compare your 
DDS to the solution in the Module 7 text. To see what 
specifications are used for level checking with a display 
file, read the section “Level Identifiers” in Chapter 7 of > 
the CPF Programmer's Guide (SC2 1-7 730). 


e lf you get the “Invalid Vendor Number” message for 
every record, you may not have coded ERRMSG to turn 
off its indicator. Check to see if you coded the indicator 
used for ERRMSG after the message to have CPF turn 
off the indicator. 
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e Edit codes are not valid for input fields. 


14. Enter the following transaction records. 


Vendor Invoice Date Merchandise Dept. 
No. No. Rec'd Amount No. 
00010 79021 08 24 83 50,00 010 
00221 800-A 08 31 83 75.00 151 
62478 123 O7 25 83 5.00 220 


If your display file works properly, the last entry should 
present the “Invalid Vendor Number” message. Press the 
RESET key to unlock the keyboard to continue. 


15. Press CMD 1 to end the job. 


16. Back at the Programmer Menu press CMD 6 to display your 
messages, then use CMD 8 to delete them. 


17. Sign off and be sure to get your listings from the printer. 


Return to your study carrel and continue your study of 


display files at “Review of Machine Exercise 1” in Unit 3 
of Module 7. 
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DESK EXERCISE 2 — CODING A SUBFILE 
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For this exercise, you are asked to code the DDS for the display 
file on the facing page. Note that the display file, used in this 
vendor search program, includes a subfile. 


Observe the following when you write the DDS code: 


e Use the Field Reference File (APPFREF.GLC) to reduce 
coding. (See Appendix A of this Student Materials Book for 
a listing of this file.) 


e The subfile record format must be named SCHDTA to agree 
with the existing program's code. 


e The subfile control record format must be named SCHCTL to 
agree with the existing program's code. 


e The field name for the search characters must be CODE1 to 
agree with the existing program. 


e The program uses the following indicators to control the 


subfile: 
Indicator Purpose 
76 Display the subfile control record 
75 Display the subfile record 
77 Clear the subfile 
99 Indicates End of Job when CMD 1 is pressed 


Special Note: Normally, subfile keywords may be 
coded in any sequence. However, the display file you are 
coding will be used by an existing program through the 
OVRDSPF command. Therefore, to meet the 
requirements resulting from a display file override, be 
sure to specify your subfile keywords with their 


indicators in the following sequence. 


Indicator Keyword 


76 SFLDSPCTL 
75 SFLDSP 
77 SFLCLR 








J 





Cc 
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e The subfile size should be 50. 
e The subfile page should be 10. 


e The name of the display file should be APDSRCxx. Replace 
the “xx” with your first and last initials. 


When you are finished, compare your coding to the 


solution in Unit 4 of Module 7. 
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MACHINE EXERCISE 2 — CREATING A SUBFILE 


This exercise is very similar to the first machine exercise in this » 
chapter. You will: 


e Use SEU to enter your DDS into a source file member. 
e Create the display file. 


e Execute the OVRDSPF command to allow an existing 
program to use your display file. 


Note: To help you understand the override 
requirements, consider the following: 


e When the program was compiled, a buffer was 
created based on the indicators and fields of the 
original display file. 


The indicators in a buffer are not identified by 
number. They are identified by their location within 
the buffer. 


The display file used as a result of an override must 
use the indicators in the same sequence so that they 
are placed in the proper locations within the buffer. 





e Run the program and see how a subfile is used for an inquiry ) 
application. 


Read all the instructions carefully before beginning the exercise. 
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C 


Instructions 


using the password GLC. 


. Select option 2 on the Student Exercise Menu to get the 


Programmer Menu. 


. On the Programmer Menu select option 8 to use SEU to 


enter your specifications for your display file and enter the 
following parameters: 


Parm: APDSRCxx Replace xx with your first and 
last initials. 

Type: DSPF 

Src file: QDDSSRC or blank 

Src lib: GLC or *LIBL 

Obj lib: GLC 

Jobd: OBATCH 


Double check your entries before pressing ENTER. 


. After entering your specifications to the source file, select 


option 3 to create your display file. 


. Go to a display station attached to a System/38 and sign on 


lf your display file is not created, get the compile listing, find 
the errors and use SEU to correct the errors. if the errors are 


not obvious, you may want to examine the solution again. 


In any event, be sure to get your listings from the Guided 
Learning Center printer and examine them. 
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5. 


After your display file is successfully created, execute the 
following override display file command. 


OVRDSPF FILE(APDSRC) TOFILE(APDSRCxx) 


Run one of the following programs with the CALL command. 


APR25 For RPG III users 
APC25 For COBOL users 


Note: You may get a level check message if your display 
file level identifier does not check with the program level 
identifier. If this happens, review your display file 
specifications with the Solution to Desk Exercise 2 in Unit 4 
of Module 7. Resolve any discrepancies in your 
specifications that concern format length or field attributes 
and names. 


When your VENDOR SEARCH display appears, enter BEST 
as the search value and press ENTER. 


Your display should appear as follows: 


VENDOR SEARCH 


ENTER CHARACTERS FOR SEARCH LLi tidied 


FRESS ENTER FOR SEARCH 


COMMANI! KEY 1 FOR END 
VENDOR NAME 
HEST ANI! COMPANY 


TsHe BRAYTON JK. 
THE BREAKERS INC. 


OF JOR 
SALESFERSON NUMBER 
MARTE CORDUROY T6U6 7 


JAMES MARSHALL 00145 
ALICIA GORTON 34681 


WINSTON BUTLER ROSS INC. TONY TAYLOR 00305 


ELLIS B. BUTTERFIELD, 
THOMAS B. CORLEY NS 
ROBERT COTTON INC. 
THE TIEANA AGENCY 

THE TIISK RECORD StOP 
THORTON DUMLEY LTD. 
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LTO EMWARD KUT 96431 
JOHN WARREN 94613 
ELIZABETH HUGHES . 63410 
ROSS HUNTER 10504 
JOYCE LYNCH 11002 
RON RAILEY 03535 





J 


The program is very simple. Each time you enter a search 
value, it gets records from the vendor file at a point where 
the key value is equal to or greater than the search value. 
Records are loaded to the subfile starting at the first subfile 
record. The program then displays the subfile with roll key 
support. (Real life programs would be much more complex 
to support the needs of a user.) 


Next, enter ACE. This is the first record in the vendor file 
and alli the data records are brought into the subfile. 


Use the roll keys to display all the data records. 


. Press CMD 1 to end the job and return to the Programmer 
Menu. 


. Display messages with CMD 6. Remove the messages with 
CMD 8. Then sign off the display station. 


Be sure to get your listings from the printer. 


Return to your study carrel and continue your study at 


“Review of Machine Exercise 2” in Unit 4 of Module 7. 
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MODULE CHECK 


You may write your answers in the space provided. 
1. 


In what order must the DDS entries for a display device file 
be made? 


a. 
b. 
C. 


. What indicators are valid in positions 8 through 16 of the 


DDS for a display device file? 


. What level entries can be conditioned with the indicators? 


What file level keyword is needed to use an “R” in position 
29? What field level keyword provides the same function? 


a. File level — 
b. Field level — 
What is the default display attribute for input capable fields? 


What keyword permits a record to be sent to the program 
without the user having to press the ENTER key? 


. What steps are necessary to create a display file? 


When you have finished answering the questions, return 


to Module 7 and check your answers. 
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NOTES 
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NOTES 
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NOTES 
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NOTES 
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PURPOSE 


TIME ESTIMATE 


MODULE OBJECTIVES 


Chapter 8. RPG Iil Interactive Programs 


COBOL USERS MAY SKIP THIS MODULE 


In an interactive system, many of your data entry, inquiry, and 
file maintenance programs will be written in RPG Ill. This 
functionally advanced language will enable you to create audit 
trails and provide for back-up and recovery in a way not 
possible with utilities such as DFU. 


Module 8 illustrates how RPG Ill can bring together the other 
System/38 objects—data base files and display files—that you 
have learned about. 


Module 8 will show you the actual RPG III programs you used in 
Module 7 to test your display files. Discussions of the programs 
are limited to the features used to test the objects you created 
in earlier modules. 


45 minutes 


After successfully completing this module, you should be able 
to: 


e Read and understand the RPG Ill coding statements that read 
and write a display file, and write records to a physical file 
using a logical file. 


e Name the Control Language command used to compile an 
RPG Ill program. 


e Name the Control Language command used to run an FPG Ill 
program. 


e Describe the logical steps required to use a subfile in an 
inquiry program. 


RPG Ill Interactive Programs 8-1 


TERMS 





The following term is described in this module: 


Multi-user programs 


IBM 8 
At this time, begin your study of the Module 8 text. 
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C 


OPTIONAL MACHINE EXERCISE 1 — DATA ENTRY 


Using the sample RPG Ill program APR21 shown in Unit 2 of 
Module 8 as a guide, code and create an RPG Ill program to 
take data entered from your display file APDENTxx and add 
records to your transaction file APLTRNxx. You created 
APDENT xx in machine exercise 1 of Module 7 and you created 
APLTRNxx in machine exercise 1 of Module 4. 


Name your program APR 1xx. 


As in the sample program, reject vendor numbers not in the 
vendor file. 


When you are ready to enter, create and test your program, 
sign on with the password GLC. Then select the Programmer 
Menu; be sure the object library is GLC. 


Enter your program into the QDDSSRC source file. 


Please take the time to examine your compiler listing to see 
how the eternal file specifications are brought into your 
program. 


Enter the following override command: 
OVRDBF FILE(APLTRN) TOFILE(APLTRNxx) 

Replace xx with your first and last initials. 

Use the CALL command to run your program. 


Use the transaction data from machine exercise 1 in Chapter 7 
of your Student Materials Book to test your program. 


When you have completed this exercise, return to your 


study carrel and continue your studies with the “Unit 
Summary” of Unit 2 in Module 8. 
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OPTIONAL MACHINE EXERCISE 2 — SUBFILE DISPLAY 


Using the sample RPG III program APR25 in Unit 3 of Module 8 
as a guide, code and create an RPG Ill program. This program 
will use your display file APDSRCxx to display the records in the 
APLSCHVN file through a subfile. You created APDSRCxx in 
machine exercise 2 of Module 7. 


Name the program APR2xx. 


When you are ready to go to a display station, sign on with the 
password GLC. Specify GLC for the object library on the 
Programmer Menu. 


Enter your program into the QDDSSRC source file. 
Use the CALL command to run your program. 
Test your program with the following search arguments: 


BEST 
ACE 
LINSEED 


Use the roll keys as needed. 


Return to your study carrel and continue your studies at 


the “Unit Summary” of Unit 3 in Module 8. 
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NOTES 


RPG Ill Interactive Programs 8-5 


NOTES 


8-6 ZR30-0990 


PURPOSE 


TIME ESTIMATE 


MODULE OBJECTIVES 


Chapter 9. COBOL Interactive Programs 


RPG Ill USERS MAY SKIP THIS MODULE 


In an interactive system, many of your data entry, inquiry, and 
file maintenance programs will be written in COBOL. Like RPG 
Il, this functionally advanced language will enable you to create 
audit trails and provide for back-up and recovery in a way not 
possible with utilities such as DFU. 


Module 9 illustrates how COBOL can bring together the other 
System/38 objects—data base files and display files—that you 
have learned about. 


Module 9 will show you the actual COBOL programs you used in 
Module 7 to test your display files. Discussions of the programs 
are limited to the features used to test the objects you created 
in earlier modules. 


45 minutes 


After successfully completing this module, you should be able 
to: 


e Read and understand the COBOL coding statements that 
read and write a display file, and write records to a physical 
file using a logical file. 


e Name the Control Language command used to compile a 
COBOL program. 


e Name the Control Language command used to run a COBOL 
program. 


e Describe the logical steps required to use a subfile in an 
inquiry program. 
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TERMS . 
The following term is described in this module: A 


Multi-user programs 


At this time, begin your study of the Module 9 text. 
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OPTIONAL MACHINE EXERCISE 1 — DATA ENTRY 


C Using the sample COBOL program APC21 shown in Unit 2 of 
Module 8 as a guide, code and create a COBOL program to take 
data entered from your display file APDENTxx and add records 
to your transaction file APLTRNxx. You created APDENTxx in 
machine exercise 1 of Module 7 and you created APLTRNxx in 
machine exercise 1 of Module 4. 


Name your program APC 1xx. 


As in the sample program, reject vendor numbers not in the 
vendor file. 


When you are ready to enter, create and test your program, 
sign on a display station with the password GLC. Then select 
the Programmer Menu; be sure the object library is GLC on the 
Programmer Menu. 


Enter your program into the QDDSSRC source file. 


Please take the time to examine your compiler listing to see 
how the external file specifications are brought into your 
program. 


Enter the following command: 
OVDBF FILE(APLTRN) TOFILE(APLTRNxx) 
Replace xx with your first and last initials. 
Geer Use the CALL command to run your program. 


Use the transaction data from machine exercise 1 in Chapter 7 
of your Student Materials Book to test your program. 


When you have completed this exercise, return to your 


study carrel and continue your studies with the “Unit 
Summary” of Unit 2 in Module 9. 
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OPTIONAL MACHINE EXERCISE 2 — SUBFILE DISPLAY 


Using the sample COBOL program APC25 in Unit 3 of Module 8 
as a guide, code and create a COBOL program. This program 
will use your display file APDSRCxx to display the records in the 
APLSCHVN file using a subfile. 


Name the program APC2xx. 


When you are ready to go to a display station, sign on with the 
password GLC. Specify GLC for the object library on the 
Programmer Menu. 


Enter your program into the QDDSSRC source file. 
Use the CALL command to run your program. 
Test your program with the following search arguments: 


BEST 
ACE 
LINSEED 


Use the roll keys as needed. 


Return to your study carrel and continue your studies at 


the “Unit Summary” of Unit 3 in Module 9. 
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PURPOSE 


TIME ESTIMATE 


MODULE OBJECTIVES 


Chapter 10. Introduction to Batch Processing 


Even in the most sophisticated interactive systems, certain 
processing requirements lend themselves to batch processing. 


This module reviews the work management concepts of a batch 
subsystem. It discusses the various system objects directly 
involved in batch processing, and itemizes the steps required to 
process a batch job stream. 


3 hours 


After successfully completing this module, you should be able 
to: 


e Describe two methods of placing jobs on the Job Queue. 


e Name the two Control Language commands used to define 
the beginning and end of a batch job. 


e Describe a Job Queue. 
e State the purpose of a Job Description. 


e Describe the relationship between the batch subsystem and 
the Spool subsystem. 


e Name the Control Language command used to display the 
contents of a Job Queue. 


e Name the Control Language command used to display the 
contents of an Output Queue. 
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The following terms are defined or described in this module: 
Batch Subsystem 
Spool 


Inline Data 


At this time, begin your study of the Module 10 text. 


eed eo erg pI eee ~ 


J 





C 


MACHINE EXERCISE — BATCH JOB 


Instructions 





In this exercise you prepare and run a batch job that prints two 
accounts payable reports. The data for the first report comes 
from a logical file which you create and code. 


Also, you are to code and create a CL program which will be 
the mainline program of the batch job. 


1. Use the following Data File Work Sheet to code the DDS for 
a logical file named APLCSHxx. 


e The format MSTINF is to use the Accounts Payable 
Vendor Master file APPVEND. 


e The format CHRGES is to use the Accounts Payable 
Transaction file APPTRN, 


When you complete your DDS coding, ask the administrator 
to see the solution. Resolve any differences you might have 
with this solution using the DDS reference manual. 


DATA FILE WORK SHEET 
APPLICATION: ACCOUNTS PAYABLE FI, — NAME APLCSHxx 


PHYSICAL[ ] 


; . APPVEND 
LOGICAL IF LOGICAL, PHYSICAL files used: RR 


Page _1_ of _1_ 


FORMAT NAME| FIELD NAME | LENGTH | TYPE oe REP] comaen COMMENTS 


a ee ee 
pf vwonam ft 
ee ee ee 
_cerces | nvoice rralsactiong ~ From prrraw) | | 
ee 
a 
a i ee es 
tench | 
a at ee 
a ee ee 
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. Go to a display station attached to a System/38. 


Sign on with the password GLC. 


Select option 2 on the Student Exercise Menu to get the 
Programmer Menu. 


. On the Programmer Menu, select option 8 to get SEU, and 


make the following entries: 


Parm: APLCSHxx where xx are your first and 
last initials. 

Type: LF 

Src file: QDDSSRC or blank 

Src lib: GLC 

Obj lib: GLC 


Jobd: OBATCH 


Double check your entries before pressing ENTER. 


. Enter your source code for your logical file. 


When you exit SEU, be sure exit option 2 appears. If it 
doesn't, go back and correct your source code. 


. Create the logical file using option 3 on the Programmer 


Menu. 


. When the file is created successfully, get and examine your 


listing from the printer. 


Sign off the display station and return to your study 


carrel. 





7. Code a CL program that: 


C e Executes the following data base override command to 
permit the existing program APR250 to use your logical 
file rather than the one specified in the program. 


OVRDBF FILE(APLCSH) TOFILE(APLCSHxx) 


e Executes the CALL command to run the program 
APR250 which is in the GLC library. This program 
produces a Cash Requirements report. 


e Executes the CALL command to run the program 
APR30O0 which is in the GLC library. This program 
produces a Purchase Analysis report. 


8. When you finish coding your CL program, go to a display 
Station attached to a System/38 and sign on with the 
password GLC. 


9. Select option 2 on the Student Exercise Menu to get the 
Programmer Menu. 


10. On the Programmer Menu, select option 8 and make the 
following entries: 


Parm: APL3xx where xx are your first and last 
initials. 
Type: CLP 
Src file: QCLSRC or blank 
a Src lib: GLC 
Obj lib: GLC 


Jobd: OBATCH 


Double check your entries, then press ENTER. 
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11, 


12. 


When the empty source member appears on the display, 
enter the insert line command | where the cursor is 
positioned. 


Note, you do not need a prompt (P) or a format (F) because 
the CLP format is free form. Unlike DDS, which, as you 
know, requires specifications in designated positions in the 
source record, you can enter a command starting anywhere 
on the line. 


The recommended way to enter CL is to let the CPF and 
SEU help you. Enter each CL command without parameter 
entries. Then press CMD 4 to get the prompting display for 
the command. When the prompting display appears, enter 
your parameter values, if any, and press ENTER. Doing it 
this way, CPF takes care of alignment, syntax, keywords, 
and continuation. 


Try this by entering the command PGM, press CMD 4, and 
when the prompting display appears, press ENTER. Note 
how PGM is aligned at position 14. All the commands will 
be aligned at this position, making for neat coding. 


Continue to use CMD 4 as you enter each command. 


When you finish entering your CL program, be sure option 
2 appears on the Exit Menu. 


Create the CL program by entering option 3 on the 
Programmer Menu. Make sure you get a successful compile 
by checking the messages with CMD 6 and, also, by 
getting and examining your listing. 


J 


13. Execute the submit job command by selecting option 5, 
entering SBMJOB in the command field and pressing CMD 
4 to get the prompt. 


On the first prompt display, enter the following parameters: 
JOB: (Your last name) 
ROSDTA: CALL APL3xx 

Press ENTER to submit the job. 


CPF isSues a message that the job was submitted to the 
OQBATCH subsystem. 


You should know that by default your batch job runs under 
the job description QBATCH. The OBATCH job description 
in the library GLC is used because the user library list you 
are running under contains the name GLC at the top of the 
list. This QBATCH job description has the correct library list 
and output queue specified for running your batch job. 


The QBATCH job description that comes with CPF and 
resides in the QGPL library is not used because the library 
name QGPL comes after GLC in the user library list. 


After you submit your job, listen for the sound of the alarm 
at your display station. When the alarm sounds, press CMD 
6 to display messages. If the message tells you that your 
job has completed normally, go on to the next step. 
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On the other hand, if after a minute or so, you do not hear 
the alarm and get a successful completion message, your 
batch job has stopped because of a problem and is waiting 
for user intervention. You need to find out why your job has 
stopped. A message requesting a reply has probably been 
sent to the system operator. Do the following from your 
display station using the Programmer Menu: 


a. 
b. 


Enter option 7 to display submitted jobs. Press ENTER. 


On the Submitted Jobs display enter 1 for your job and 
press ENTER. 


On the Display Job Menu enter option 12 to get your 
batch Job Log Display and press ENTER. 


. When the Job Log Display appears press CMD 7 to find 


out why and where your job failed. Examine the 
information carefully and note the error messages and 
their IDs. You will use this information to find and correct 
errors. 


Press ENTER until you return to the Submitted Jobs 
display. Then enter option 9 to cancel your batch job. 
Because of a delay built in to cancel a job, you will wait 
for about a minute before the alarm sounds that indicates 
your job is cancelled. 


Press ENTER to return to the Programmer Menu. 


Enter option 7 to see that your batch job is no longer in 
the system. 


Correct your errors and try again. 


J 


14. Go to the printer and get your listings of the two reports 
and your job logs. The following two pages contain 
examples of the two reports. 


15. Using the Programmer Menu, remove any messages; press 
CMD 6 to get the messages and then CMD 8 to remove 
them. 


Sign off with option 90 and a blank Parm field. 


Return to your study carrel and continue your study of 


batch processing in the Module 10 text. 
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VENDOR 
NUMBER VENDOR NAME 
00010 JOHN M. SHITH & SONS 
TOTAL DRE VENDOR 
00011 FETZNER & FETZNER 
TOTAL IRE VENDOR 
00016 BRAND X BEER 
TOTAL DUE VENDOR 
00021 MEMORIAL CARETAKERS 
TOTAL DUE VENDOR 
00145 T-«H- BRAYTON JR. 
TOTAL DUE VENDOR 
00210 GEORGE BAILEY COLLEGE 
TOTAL DRE VENDOR 
00221 JOHN M. SMITH & SONS 
TOTAL DUE VENDOR 
00296 WOODSTOCK GRAINERY 


TOTAL DUE VENDOR 


CASH REQUIREMENTS 


INVOICE 
NUMBER 


00079021 
2552 
79021 
79021 


0000080} 
1564 

156 

782 

782 
GO0-A 


INVOICE 
DATE 


8/24/83 
0/14/21 
8/24/83 
8/24/83 


8/31/83 
4/10/83 
4/10/83 
8/10/83 
8/10/83 
8/31/83 


PAGE 1 
MERCHANDISE DEPARTMENT 
AMOUNT CHARGED 
BO .00 010 
1,212.22 101 
3D 00 010 
30. 00 010 
1,362.22 
~00 
«00 
«00 
«00 
200 
75-00 i351 
75500. 75 012 
7,300.75 012 
600 .00 102 
600.00 102 
75-00 151 
16,351.50 
«00 


a 


C 


Buissed0jg yoieg 0] UONONpowu| 
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DATE - 3/25/86 PURCHASING ANALYSIS PAGE 
VENDOR MONTH-TO-DATE YEAR-TO-DATE 
NUMBER VENDOR NAME FURCHASES FURCHASES 
00016 BRAND X BEER 37 »800-00 5,857,500 .25 
63410 ROBERT COTTON IWC. 28,675.00 3+976,248.50 
13130 TeMe-ELLIOT INC. 3, 700.00 687,500.75 
00021 MEMORIAL CARETAKERS 5S» (56-00 657 5560-00 
00714 GUY COHRAN CORP, 86,542.15 373,664.21 
00221 JOHN M. SMITH & SONS 5,200.00 275,600.00 
01148 JOHNSON & SONS 3 9200.00 105, 200-00 
004688 SHARON PHILIPS CORP. 3,400.00 100,857.75 
66714 ROSS & ROSS 16,875.00 98 562,45 
30168 H.M. LINSEED CORP. 150.00 9B, 250-00 
00431 MARGARET HART INC. 1,050,00 64,561.25 
00505 WINSTON BUTLER ROSS INC. 1,000.00 90,575.00 
00210 GEORGE BAILEY COLLEGE 2,300.00 50,000.00 
00011 FETZNER & FETZNER 53 »000.00 34,500.00 
96431 ELLIS B. BUTTERFIELD, LTE 29,456.21 29,456.21 
10502 HUGH WILLSON & SON 15,785.00 27,500.85 
84210 STAFF GENERAL HOSPITAL 27,500.00 27,500.00 
OS07S PETER VAN ROTH CORP. 19,500.00 19,500.00 
00145 TeHe BRAYTON JR. 10,000.00 10,000.00 
21178 THE FRAMING PLACE °O0 8,500.50 
ZUIL2IO C.C. GOOIWILL INC. 1,500.00 6,875.50 
26567 BEST AND COMPANY 1,003.76 4,607.92 
O77 733 SEAL FRODUCTS INC. +00 4,000.00 
00313 JOHN HARVARD INC. 2,700.00 2,300.00 
34681 THE BREAKERS INC, 1,667.50 1,867.50 
36350 PINE TIMER CO, INC. 26275 1,600.85 
24133 PATRICK UNDERHILI.. 730 «00 1,275.00 
63218 ACE DISTRIBUTORS 37-41 973.62 
03535 THORTON DUDLEY LTT. 100.00 925.00 
11002 THE DISK RECORE SHOP 150.00 300 +00 
15664 AeB. GLOVER CORP 150.00 300.00 
72302 NINA & PAUL’S »0O 300.00 
94613 THOMAS B. CORLEY DDS 200 300,00 
00010 JOHN M. SMITH & SONS 150.00 300.00 
65321 FEDERAL CORP 32-00 375 200 
O7374 FHOTO LABS INC. 250.00 250-00 
00296 WOODSTOCK GRAINERY 000 175.00 
06242 WORLD TRADE CORP. 150.75 150.75 
24001 ST ALBANS UNIVERSITY 150.00 150.00 
00612 R.HeGROCERY STORE 45.00 145.00 
45892 PETE MOSS & SONS 82,00 82.00 
06183 THE LEARNING INSTITUTE 65.00 65-00 
33333 CLIFFORD PALEY MD 15.00 37262 
73013 WINTHROP BLISS INC. 15.00 15.00 
63200 JOHN WINTHROP LTE. 10.00 10.00 
PAPAS ALLEN’S HARDWARE INC. 10,00 10.00 
10504 THE DEANA AGENCY 3.00 3-00 

FINAL TOTALS 260,174.75 12,801,271.48 


MODULE SUMMARY 
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This module was much more than an introductory module. Not 
only did it present the fundamental concepts of batch 
processing and discuss the program products that support 
batch processing, it also introduced many of the Work 
Management concepts. 


You were also provided with other information to help put the 
concepts into perspective. You were shown the commands that 
control work management and were able to see 
interrelationships of Job Queues, Output Queues, Request Data, 
Class Descriptions, Job Descriptions, Subsystem Descriptions, 
and many other System/38 objects. 


J 





NOTES 
/ ww 


Introduction to Batch Processing 10-13 


NOTES 


10-14 2ZR30-0990 


wT ™ 





PURPOSE 


TIME ESTIMATE 


MODULE OBJECTIVES 


TERMS 





Chapter 11. RPG III Batch Programming 


COBOL USERS MAY SKIP THIS MODULE 


The purpose of this module is to illustrate how RPG Ill can 
interact with the other System/38 objects about which you 
have learned. 


Module 11 shows you the actual RPG Il! programs you used in 
Module 10 to run your batch job. Discussions of the programs 
are limited to the features used to override the specifications 
externally described using DDS. 


45 minutes 


After successfully completing this module, you should be able 
LO. 


e Read and understand the RPG lll coding statements that 
process a file using the RPG Ill logic cycle. 


e Describe the override entries that may be entered as Input 
specifications for externally described files. 


The following terms are defined or described within this 
module: 


Control Level Indicators 
Record ID Indicators 
Matching Record Indicators 
RPG Ill Logic Cycle 


At this time, begin study of the Module 11 text. 
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OPTIONAL MACHINE EXERCISE — RPG III BATCH PROGRAMMING 


In this exercise you are to code and create a program similar to 
the RPG Ill program APR250 you studied in the Module 11 text. 
You may recall from the Module 10 machine exercise that this 
program prints a Cash Requirements report. The program you 
are to code in this exercise is to print a Cash Requirements 
report, but only for vendors with outstanding invoices. These 
are the vendors in your transaction file APLTRNxx. 


In doing this exercise you are to: 


e Use the same print format, that is, the same print headings, 
field headings, and print positions used in the program 
APR250. 


e Use your transaction file APLTRNxx to get the vendors with 
outstanding invoices. 


e CHAIN to the vendor master file APLVEND to get the 
descriptive data needed for the report. 


e Name your program APR3xx, where xx are your first and last 
initials. 

e When you are ready to use the System/38, sign on with the 
password GLC. Select the Programmer Menu to enter and 


create your program. Be sure to specify GLC for the object 
library on the Programmer Menu. 


Enter your program into the QDDSSRC source file. 


e After you successfully create your program, run it as a batch 
job using the SBMJOB command. 


If you have a problem with your program, the administrator 
can show you a solution. 


Note: The number of records on your listing reflects the 
number of records you added to your APLTRN«x«x file in previous 
exercises. 


When you complete the exercise, return to your study 


carrel and continue your study at the “Unit Summary” for 
Unit 2 of Module 11. 
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NOTES 
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PURPOSE 


TIME ESTIMATE 


MODULE OBJECTIVES 


TERMS 





Chapter 12. COBOL Batch Programming 


RPG Ill USERS MAY SKIP THIS MODULE 


The purpose of this module is to illustrate how COBOL can 
interact with the other System/38 objects about which you 
have learned. 


Module 12 will show you the actual COBOL programs you used 
in Module 10 to run your batch job. Discussions of the 
programs are limited. Instead, emphasis is placed on using 
Printer Device Files—a System/38 tool that should greatly 
simplify your COBOL programming requirements. 


45 minutes 


After successfully completing this module, you should be able 
to: 


e Read and understand the COBOL instructions that process a 
file and produce a printed report. 


e Read and understand the DDS coding for Printer Device Files. 


e Briefly describe how Printer Device Files are used by COBOL 
programs. 


The following term is defined or described in this module: 


Printer Device Files 


At this time, begin your study of the Module 12 text. 
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In this exercise you are to code and create a program similar to 
the COBOL program APC250 you studied in the Module 12 text. 
You may recall from the Module 10 machine exercise that this 
program prints a Cash Requirements report. The program you 
are to code in this exercise is to print a Cash Requirements 
report, but only for vendors with outstanding invoices. These 
are the vendors in your transaction file APLTRNxx. 


In doing this exercise you are to: 


e Use the same print format, that is, the same print headings, 
field headings, and print positions used in the program 
APC250. 


e Use your transaction file APLTRNxx to get the vendors with 
outstanding invoices. 


e CHAIN to the vendor master file APLVEND to get the 
descriptive data needed for the report. 


e Name your program APC3xx, where xx are your first and last 
initials. 


e When you are ready to use the System/38, sign on with the 
password GLC. Select the Programmer Menu to enter and 
create your program. Be sure to specify GLC for the object 
library on the Programmer Menu. 


Enter your program into the QDDSSRC source file. 


e After you successfully create your program, run it as a batch 
job using the SBMJOB command. 


lf you have a problem with your program, the administrator 
can show you a program solution. 


Note: The number of records on your listing reflects the 
number of records you added to your APLTRNxx file in previous 
exercises. 


When you complete the exercise, return to your study 


carrel and continue your study at the “Unit Summary” for 
Unit 2 of Module 12. 





NOTES 
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Chapter 13. The Query Facility 


PURPOSE 


This module teaches you how to use the Query utility to print or 
display data gathered from a file, in report format. As you may 
know, Query is especially suited to producing one time reports. 
On the other hand, a query can be used over and over. In this 
respect, a query can become a permanent part of an application, 
and as such, can be run interactively or as a batch job. 


TIME ESTIMATE 
2% hours 


MODULE OBJECTIVES 


After successfully completing this module, you should be able 
to: 


e State the purpose of QUERY. 


e Describe two methods of processing multiple files with 
QUERY. 


e List the Control Language commands used for QUERY. 
e Create a new data field on a QUERY report. 


e Use QUERY to produce an analytical report that meets a set 
of supplied requirements. 


e Recognize various prompting displays and state the purpose 
of each. 


TERMS 
The following term is described in this module: 


Record Sampling 


At this time, begin your study of the Module 13 text. 
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MACHINE EXERCISE 1 — CREATING A QUERY 


In this exercise you are to generate a report using Query, as 
follows: 


e For selected vendors from the accounts payable vendor file, 
you are to show the dollar amount of their purchases 
year-to-date and amount of their discount year-to-date. 


e You are to compute and show the average discount percent 
for each vendor based on these figures. 


e You are to calculate the sum of the purchases and discounts 
for each class of vendor and get the average discount 
percent for a class. 


You should read through the exercise before you start the first 
step. Also, do not rush through the exercise. Use the HELP key 
if you are not sure about an entry on a prompt display. Take the 
time to make this exercise a learning experience. 


Instructions 
1. Go to a display station attached to a System/38. 
Sign on using the password GLC. 


Select the Programmer Menu and make the following entries: 


Option: 2 

Parm: APQ4xx where xx are your first and last 
initials. This is the name of your 
query. 


Type: Leave blank 
Src file: Leave blank 
Src lib: *LIBL 

Obj lib: GLC 

Jobd: OQBATCH 
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. You are to create your query as follows: 


e Use the file APLVEND in the GLC library for the query. 
This file has one format named VENDMAST. 


e Make the report heading or cover page: 
“QUERY EXERCISE FOR — (your name)”. 


e Make the page headings: 
“NON-PREFERRED VENDORS". 


e On the field review prompt, select the fields you will list 
on the report and the fields you will use for record 
selection. You should select seven fields. See the 
following items for the fields to be listed and used for 
record selection. 


e List these fields across the report page in the following 
order: 


1. VNDCLS — Vendor class 
VNDNBR — Vendor number 
VNDNAM — Vendor name 
PCHYTD — Purchase year-to-date 


ao FF WN 


DCTYTD — Discount year-to-date 
6. DISCPC — Average discount percent 


e On the Query Definition Prompt, in addition to ordering 
the fields, do the following: 


— Calculate the sums of the fields PCHYTD and 
DCTYTD. 


~— Get the average percent discount. 
— Sort the records on the VNDCLS and PCHYTD fields. 


— Jest the SRVRTG and DELRTG fields for record 
selection. 


e Calculate the average discount percent value for the new 
field DISCPC by dividing DCTYTD by PCHYTD and 
multiplying by 100. 


e Select those vendors which do not have an “A” rating 
both for delivery (DELRTG) and service (SRVRTG). These 
are the non-preferred vendors. Be sure to specify “A” 
(Uppercase and apostrophes) for the selection criteria. 
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e Change the label for the DISCPC field to: 


AVERAGE 
DISCOUNT 
PERCENT 


e List records in descending sequence of PCHYTD (minor) 
within ascending sequence of VNDCLS (major). Subtotal 
on a change of VNDCLS. 


3. Create and run your Query application. 


The report should look as follows. 


03/28/86 09108145 NON-PREFERRED VENDORS 


CLASS VENDOR VENDOR FURCHASES UISCOUNT AVERAGE 
NUMBER NAME: yTu TAKEN DISCOUNT 
YTD PERCENT 


210 GEORGE BAILEY COILEGE 50,000.00 7.50 -O1 
50,000.00 7.50 

O1 

68,714 ROSS & ROSS 98,562.45 6,749.51 6.84 

7,733 SEAL PROIWCTS INC. 4,000.00 4.00 10 
102,562.45 6,753.51 

3.47 

3,075 FETER VAN ROTH CORF. 19,500.00 577.50 2.96 

33,333 CLIFFORD FALEY MI! 37-62 6675 17.94 
19,537.42 504.25 

10.45 

660 SHARON FHILIFS CORF:. 100,857.75 8,500.00 8.42 
100,857.75 8,500.00 

8.42 

63,410 ROBERT COTTON INC. 3,976,248.50 68,719.34 1.72 

714 GUY COHRAN CORF:. 573,684.21 575-00 °10 
4,549 ,932.71 69,294.34 

Al 

63,218 ACE UISTRIBUTORS 973.62 62.89 6.45 

72,302 NINA & FAUL'S 500.00 «00 «00 

24,001 ST ALBANS UNIVERSITY 150.00 0235 16 
1,623.62 63.14 

2.20 

305 WINSTON BUTLER &OSS INC. 50,575.00 3» 756-25 11.38 

11 FETZNER & FETZNER 34,500.00 150.00 043 

145 T.H,BRAYTON JR. 10,000.00 375.00 3.75 

15,064 A.B. GLOVER CORP =00.00 72.00 14.40 

73,013 WINTHROF BLISS INC. 15.00 2.47 16.46 
95 4590.00 6,355.72 

9.26 

13,130 ToM-ELLIOT INC. 687,500.75 «00 200 

10,502 HUGH WILLSON 4& SON 27,500.85 4.62 -O1 

356,330 PINE TIMER CQ, INC, 1,400.05 «00 «00 

3,535 THORTON DUDLEY LTO. 325.00 15.62 3.01 

79374 PHOTO LABS INC. 250.00 2.50 1.00 

6,242 WORLD) TRADE CORF. 150.75 052 «34 
717,528.20 23.46 

003 

30,188 H.M. LINSEED CORF. 98,250.00 165.00 «18 

34,681 THE BREAKERS INC. 1,867.50 684.25 36.63 

65,321 FEDERAL CORP 375.00 12.47 3.32 
100,492.50 061.72 

13,38 


5, 738,124.85 92,463.64 


5.42 


TOTAL NUMBER OF RECORDS PROCESSED 25 





You may be wondering about the * and / on the report. The * 
indicates a sum and the / indicates an average. 
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If you get a report and it is not the same as the one shown, 
determine what you did differently. Then select the option to 
change an existing query. Use the Query Modify Menu and 
select the correct prompt display to make your change. Once 
you have made your changes, exit from the Query Modify Menu 
with CMD 1. 


If you have problems, try to resolve them with the HELP text 
first, then the Query reference manual or the Module 13 text. If 
you get completely stuck, you will find a solution on the 
following pages. To get the most benefit from this exercise do 
not go to the solution except as a last resort. 


If your report is the same as the one shown, remove your 
messages with CMD 6 and CMD 8, and sign off. 


When you have completed the exercise, return to your 


study carrel and continue your study of Module 13. 
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SOLUTION TO MACHINE EXERCISE 1 — NON-PREFERRED VENDORS 


FROGRAMMER MENU 


Seltect one of the following? 
1. Design/execute DFU app 
2. Design/execute  wery app 
3. Create object 
4. Call program 
5S-« Execute command 
4. Submit job 
7. Display submitted jobs 
8. Edit source 
9, Design display format 

80. Display Menu 

90. Sign off 

Types! HAS, BASF, 
FRTF, QRY, 


2 Farms 


a 


HSCF, CBRL, 
RPG, RFT, 
AE G4XX 


CL, 
TXT 
Option? 
Command ? 


Text! 
Src filet 
CF3—-Command entry 


Src 
CF 4-Fromp t 


Select one of the following? 
1. Create, change, or 
a | 


a + 


3. Manage existing yzueries 


Option? a. 


instructions. 


Fress HELF for 
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Typet 


Libs’ LL. 


SYSTEM: ATLERDEYV 
(app), »Coptions) 

Capp), »toptions?) 

object name, type, 
Program name 
comma nd 

(job name), 


Pgm for CMD, (text) 


Ccammand > 


(sarcmbr), (type), (text) 
(srcmbr ) 
(menu) 

CHNOLIST 


CIF’, CMI, 


¥LIST) 


CMNF, DFU, DSFF, LF, MXDF, FF, FLI, 


Farm 23 


Log requests! *YES 
TRL Jobd!t QHATCH 
(3,5 & & only?) 


Obj tibt GLC 
CF4-DSFMSG 


QUERY MENU 


delete a  yzuery 
Execute queries and display output 


Fress CFl1l to exite 








SOLUTION TO MACHINE EXERCISE 1 — NON-PREFERRED VENDORS 


QUERY CREATE/CHANGE/DELETE MENU 


Gelect one of the following and enter values below? 
1. Display information about a query 
2. Create a new yuery 
3. Change an existing query 
4. Delete an existing query 
5S. LDigplay status of queries submitted 


Option? ice 


Query name’ (#—-Query selection List) 
Library name? 


HELF—He Lp CF2-Frevious disaplay 


QUERY CREATE FROMFT 
Query name? AP Q4XX Library? 


Enter information for new query! 
Hescription’ QUERY EXER(ZISF 1 
File name’ APLVENT (4-File selection List) 
Library name GLC 


Enter the following if file chaining is desired} 


Gecondary file name? (#-File selection List) 
Library name? 


HELF—He Lp CF2-Previous display CF3-File information 


The Query Facility 





13-7 


SOLUTION MACHINE EXERCISE 1 — NON-PREFERRED VENDORS > 


OUTPUT SPECIFICATION PROMPT 


Enter the following: 
Cover page: QUERY EXERCISE --~-(STUDENT NAME) oF 


Page heading: NON-PREFERRED VENDORS 


Detail tisting: Detail list double spaced: 
Output Line width: 2 Separate record format headings: 
Record sampling: *N Field spacing: «(*DFT, 0-99) 


Record format review: #YES Display all fields in prompt: 


Take defaults for atl setected fields: 


RECORD FORMAT REVIEW PROMPT FOR FILE APLVEND 


For each record formet to be used, enter R to review the fielde, 
A to select all fields, or E to enter the fietds later? 
RECORD FMT DESCRIPTION 
kK VENUIMAST VENIMAST DE FORMAT 


HEL.F—He Lp CFi3-Status 
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SOLUTION TO MACHINE EXERCISE 1 — NON-PREFERRED VENDORS 


FIELD REVIEW PROMPT FOR RECORD FORMAT VENDMAST 


Enter an X next to each field to be used or enter *ALL? 
xX ATTR FIELD NAME LENGTH TYPE DESCRIPTION 


VNONER 
VNIINAM 
VNDADAL 
VNTAN2 
VNDADS 
VNIIZIF 
VNTDACI 
VNIIF'HN 
VTRMFEC 
VTRMIIA 
VNEIICL_S 
ACTCcL 
VNDSLS 
DCTMTY 
NCTY TH 
FCHMTIT 


5»O 
29 
25 


W 
ul 


* NN GN ole 
NNNUOMKROOWUC OO 


aN ~ 


FUVSPPUVUDUITDTITS PPP 


VENDOR ID NUMBER 

VENDOR NAME 

ADDRESS LINE i 

ADDRESS LINE 2 

ADDRESS LINE 3 

ZIF CODE 

AREA CODE 

FHONE NUMBER 

NORMAL F'ROMPT PAY DISCOUNT * 
NORMAL NO. OF DAYS FOR TERMS 
VENDOR CLASS 

A=ACTIVE D=DELETE S=SUSFEND 
VENIIOR SALESMAN 

DISCOUNT TAKEN THIS MONTH 
DISCOUNT TAKEN THIS YEAR 
PURCHASES THIS MONTH 


REMEMBER TO USE THE ROLL KEY TO DISPLAY THE 
SECOND SCREEN OF FIELD REVIEW PROMPTS. 


HELF—He Lp CF2-Frevious displ 


FIELD REVIEW PROMFT FOR RECORD FORMAT VENDIMAST 


Enter an X next to each field to be used or enter *ALL!? 


X ATTR FIELD NAME LENGTH TYPE DESCRIPTION 


HELF—He Lp 


PCHYTH 
BAL OWE 
SRYRTG 
DELRTG 
COMNTS 
SCHCOD 


11,2 
9,2 
1 

1 

25 
10 


CF2-Previous display 


FURCHASES THIS YEAR 
FALANCE OWED 

SERVICE RATING, 

DELIVERY RATING 

COMMENTS ABOUT THIS VENDOR 
SEARCH CODE 


CFi3-Status 
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SOLUTION TO MACHINE EXERCISE 1 — NON-PREFERRED VENDORS 


QUERY DEFINITION FPROMFT 


For record format name VENIIMAST enter t 


FIELD NAME 
VNDNER._ 


VNDNAS_ 
VNUCLS___. 


DCLYTo___ 
FCHUYTD_.__. 
GRYETG__ 
QELRITG ___ 
VISCrow 


a ee re ee ee ee wes 
en eo ee ee 

ee ee ee ee ee ee ee ee 
ee Lee 
ee ee a ee 
eee ee eg ee ee ee ee 


ORDER SUM AVG SORT TEST XLIST TABLE 


2.10 _ _ - 
2.0 -. ~ 
122 x 
ha Q 


~420 


620 


—< = 


COMFUTE FROCESSING FROMF'T 


For resuit field DISCFC enter { 
Computed values (DCTYTO Z_PCHYTOII#100.. 


Use decimal numbers and field names combined by + 5~-9%9/7 9/7 
Multiply(*)>),divide(/>),and remainder(//) are done before +)-. 


For example, 


to compute a 10% sales commissiaen besed ona 


field named AMOUNT, enter? AMOUNT * .10 
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SOLUTION TO MACHINE EXERCISE 1 — NON-PREFERRED VENDORS 


SELECTION TEST FROMFT 


Enter tests for *SELECT/*OMIT group: *SELECT 
FIFLJI NAME REL VALUES 
ORYETG..- *NE £5 en ae fog eps ere ee ee ne ote 
WELLS T GO. xNE SN a ci a cia ate a St ae Ses 


— Se eee . me me me eg my eee ey ee a ee ee 
ee eee Ts ee ee me ee me ee ee ee rs ee ee er ee re ee ee ed ee eed ees de 
ee ee ee ee ee 


oes eee e ee aee ee me er eo ee ee es ee me nee 


Se ee ee ee ery = ee me ey ge 


“~~ | THIS GROUP OF LINES WILL [0777777777 
.... | BE ANDed TOGETHER. Be fle epee let 


en me ee ee mm me ee Ree ee ey ee ee ee ee eg ee ee ee ee Pee 
Se ee et ee ed 


em ee ee eee pie ee ee 


SELECTION TEST FROMFT 


Enter tests for *SELECT/#OMIT groups *SELECT 
FIELIN NAME REL. VALUES 
SEYVB TG... 
All Sa Oe 5 8 ee 


= IF WE NEEDED A SECOND GROUP OF TEST SPECIFICATIONS, 
WE WOULD ENTER THEM ON THIS SCREEN AND THEY WOULD 
BE ORed WITH THE FIRST GROUP. 








PRESS ENTER WITHOUT MAKING AN ENTRY 


ee ee me ee me mee re 


em ek etme meen et meee men ee en es ee ee ee ee mens ee ee ee oe 
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SOLUTION TO MACHINE EXERCISE 1 — NON-PREFERRED VENDORS 


EXTENDED LIST FROMFPT FOR FIELU DIGSGLFC 


Enter the foltowing? 
OUTFUT SIZE FIELD SIZE 

|.1ST3 “YES 14 2 14 2 
SUM! #NQ_ 12 2 19 2 
AVG! *YES 14 _2 14 2 
List only if change? *NQ_ 
Label? AVERAGE 

NISCOUNT Wow - 

PERCENT 
Field spacing? “HUET 
Edit code we. 


SORT SPECT FICATION FROME T 


Enter change? 


SPACE SPACE 
FIELT NAME ORDER BEFORE AFTER SUBTOTAL SURTARLE DSCEND ARSNEK 
VNTICLS UW = 14 , - 
ECHYTE 2 2 , ve 


cee eee ee ey ms ween oe ees 
ee ke nae eee md 
re ee ee ee es ee 24 yok oe oe 
ee er i ee owe oes ee ee 
a oe 

Some rues to . 
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C SOLUTION TO MACHINE EXERCISE 1 — NON-PREFERRED VENDORS 


EXTT AFPFLICATION TEFINITION MENU 


Select one of the following? 
1. Restart definition 
Modify definition 
Nelete definition 
Save definition 
Create application interactively 
Create application in batch 


* 


* 


3 
4, 
uJ 
é 


Option: é 


APPLICATION CREATION FROMPT 


Enter the following: 

Application name: AF OQ 4 XxX 
Library name: GLC 

Fublic authority: 4. (i-Normal 2-None = 3-ALL) 

Adopt owner's user profile: (Y-Yes N-No?) 

Optimize Query: (Y-Yes  WN-No?) 

Source Listing: (¥~Yes  WN-No) 

Dump internal data areas: (¥~-Yes WN-No) 

Generated code Listing: (¥--Yes WN-No) 

Job description name: QHATCH (%-Job clescription List) 
Library name: 6LC 

Execution folitowtng creation: Yo (¥~Yes  N-Nod 
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SOLUTION TO MACHINE EXERCISE 1 — NON-PREFERRED VENDORS 3 


QUERY EXECUTION FROMPT 
Query namet AFQ4XX Library$ GLC 


File name’ AF) VENT 


Enter the folLlowi ne? 
Type of output? (i-Keport @2-File 3-Hoth) 
Input file memher ? (#--L_ist Hlank-First member ) 
Numher of records to query? C(Hlank-ALL records) 
Job description’ QHATCH 
Library name? GI..C 


HEF -He |p CF2-Frevious display 


QUERY REPORT SFECIFICATTION FROMPT 


Enter the fol Lowing? 
Forms widths (SO to 199) 
Hold output for display? (Y-Yes N-No ) 


HEL.f’—He |p CF2-~Frevious display 
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SOLUTION TO MACHINE EXERCISE 1 — NON-PREFERRED VENDORS 


QUERY CREATE/CHANGE/IIELE TE MENG 


Gelect one of the following and enter values below’ 
Id. LTlieplay information about a query 
?, Creale a new y~hlery 
» Ghange an existing Tuer y 
> Delele an exrsting query 
SoS. Tierlay status of tiueries submitted 
Opitron?’ — 
Query name? AF O4X x (*%--Query selection List) 
Lojbrary names (5L.C 


HEA Fe--He tp Che Fyrevious display 
Job AFQ4SXX,.GLC.005072 submitted for application AFR4XX.GLC. 


QUERY CREATTON/ZEXECUTIUN STATUS 


AR-ITICATTION LIBRARY WHEN SUBMITTED STATUS 
__ AFP Q4aXxX GI. O3/27/804& O9t54229 Comp leted 


t-Job information CES-Readisp lay CFLI2-Group by STATUS 
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SOLUTION TO MACHINE EXERCISE 1 — NON-PREFERRED VENDORS 


QUERY CREATE/CHANGE/IELETE MENU 


Select one of the following and enter values below? 
1. Diseplay information about a query 
2.» Create a new  uery 
3. Change an existing  wuery 
4, Telete an existing query 
Se Hisplay status of y~ueries submitted 


Options 


Query name: (*-Query selection List) 
Library name’ 


HELP He Lp CR2-Frevious display 


QUERY MENU 


Select one of the following? 
1, Greate, change, or delete a qyuery 
2. Execute queries and display output 
3. Manage existing queries 


Option’ 


Press HELF for instructions. Fress (Fi to exit. 
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SOLUTION TO MACHINE EXERCISE 1 — NON-PREFERRED VENDORS 


Cc 


PRINTOUT FROM QUERY CREATION 


LOOK ON YOUR GLC PRINTER 





VATE 04/03/86 TIME 11215%27 


QUERY EXERCISE FOR —- (STUDENT NAME) 


Application? APiIIAaXxX . GLC 


flueried file? AFLVENT,.GLC Member : AFPL.VENI! 


File resorted according to folLlowi'ng sort order? 


RECORD FORMAT , SEQUENCE SIGN 


VENDTIMAST VNIICLS ASCENT *YES 


FCHY TEI DESCEND *YES 


User specified record selection criteria; 


RECORD FORMAT OF TION FIELD SELECTION TEST 


=. ee ge ee ee — es ee ee ee A 


VENIIMAST *#SELECT SRVRTG *#NE * A?’ 


wy NeLRTG NE *A? 
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MACHINE EXERCISE 2 — CHANGING A QUERY 


Instructions 
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In machine exercise 1 you created a query that listed the 
non-preferred vendors, that is, vendors that do not have a 
delivery and service rating of “A”. In this exercise you are to 
select the vendors with a service and delivery rating of “A’, 
which are the preferred vendors. 


The report format and field sequence remains the same. 


1. Sign on with the password GLC and select the Programmer 
Menu. 


2. Make the same entries on the Programmer Menu as you did 
in machine exercise 1. 


3. Make changes on two Query prompts: 


e Change the page heading on the Output Specification 
Prompt to “PREFERRED VENDORS”. 


e On the Selection Test Prompt change the select/omit 
test to select vendors with an “A” rating for delivery and 
service. 


Note that you need to press CMD 1 to exit the Query Modify Menu. 


2 





O3/27/84 O9Th4:358 


CLASS VENDOR 
NUMBER 
ii 14 
11 221 
11 10 
il 45,8692 
11 46,183 
12 412 
15 21 
iS 94,946 
20 294 
2? 11,002 
33 1,148 
33 94,431 
35 84,216 
Xb 21,176 
a 16,504 


Your listing should agree with the one below. If it does not, 


make the appropriate changes and rerun the Query. 


VENDOR 
NAME 


GRAND xX BEER 

JOHN M. SMITH & SONS 
JOHN M. SMITH & SONS 
FETE MOSS 4& SONS 

THE LEARNING INSTITUTE 


K.sH.GROCERY STORE 


MEMORIAL CARETAKERS 
ALLEN’S HARDWARE INC. 


WOODSTOCK GRAINERY 


THE DISK RECORD SHOP 


JOHNSON & SONS 
ELLIS BH. BUTTERFIELD, LTE 


STAFF GENERAL HOSF TTAL 
THE FRAMING PLACE 
THE TEANA AGENCY 


TOTAL NUMBER OF RECORTIS FROCESSED 15 


lf you continue to have problems, review the solution on the 


FREFERRED VENDORS 


FURTCHASES 
YTD 


2,857 .500.25 
275,600.00 
500.00 

@2,.00 

65.00 

6,133, 747.25 


144.060 
145.00 


657,560.00 
10.060 
657,570.00 


175.00 
175.00 


500.00 
500.00 


105,200.00 
29,456.21 
134,456.21 


27,500.00 
8,500.50 

3.00 
34 , 003.50 


4,962, 796.96 


following pages. 


When you have finished, return to your study carrel and 


continue your studies with the “Unit Summary” of Unit 4 
in Module 13. 


DISCOUNT 


TAKEN 
YTD 


15,@21 200 
274,50 
72.00 

200 

200 
16,147.50 


100 
+60 


«00 
625 
225 


=O0.00 
50.00 


206 
«90 


1,052.00 
2,764.50 
3,616.50 


+00 
72.00 
1.50 
73.50 


20,107. 7% 


PAGE 


9.38 


S619 4 
290 
,84 

0.60 


16.95 7/ 
an 
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SOLUTION TO MACHINE EXERCISE 2 — PREFERRED VENDORS 


QUERY CREATE/CHANGE/DELETE MENU 


Select one of the following and enter values below! 
1e Display information about a query 
2. Create a new wuery 
3 Change an existing query 
4. Tlelete an existing query 
SS. Display status of queries submitted 


Options 3 
Query name! APQ4SXX (*%-Query selection List? 
Library name? GLC 


HELP --He Lp CF2-FPreyvyions display 


QUERY MONIFY MENU 


Select one of the followings 
he Output specification Compute processing 
2». Record sampling ; Select/omit processing 
3. Tlelete record format Table definition 
4, Add record format Sort specification 
SB. Field definition 


Options ee 
Quakifying record format name: VENTIMAST 
Add/delete record format name?’ 


HEF He Lp OFI3-Status CFi4-Review fields CFiS-Review NDS 
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SOLUTION TO MACHINE EXERCISE 2 — PREFERRED VENDORS 


Enter 
Cover page: 


Fage heading: 


Detail Listing: 
Cutput 


Select one of the 
Le Outpul 
~e Record 
3. Telete 
4. Adcl 


the following: 


Line width: 


OUTPUT SFECIFICATION FROMFT 


ERY EXERC --~ 
FREFERRED VENDORS 
Detail List double spaced: 


Separate record format headings: 
Field spacing: (¢#DFT, O-99) 


"YES 
i132 


QUERY MOOT Y MENU 


following? 
specification 
sanpbLing Te 
record format 
record format 


6. Compute processing 
Select/omit processing 
Table definition 


Sort specification 


Gg. 
9. 


Se Field definitioan 


Options 
Qualifyine 
Adcd/delLete 


HEF ~kle Lp 


record format name? 
record format 


Cris-Status 


» 
_VENTIMAST 
Tame 


CFE14-Review fields CriSs--Rev iew 


*¥NO 
XYES 
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SOLUTION TO MACHINE EXERCISE 2 — PREFERRED VENDORS 


SELECTION TEST FROMFT 


Enter tests for *xSELECT/*OMIT group? *SELECT 
FIELD NAME. REL VALUES 
EQ 
*£Q 


0 ee eee a ee ee 
ems ee ee ee 
ee ee 
ee bee eee re ee ee Ee 
ey eh we a ee 
eg rg es ee 
cee eee a ee ep ee 


ee 


QUERY MOMTFY MENU 


Select ane of the following? 
Le. Output specification &. Compute processing 
Ze Record sampling 7. Select/omit processing 
3. Delete record format 8. Table definition 
4. Add record format 9. Sort specification 


Se Field definition 


Option’ xe 
Qualifying record format name? VENIIMAST 


Add/delete record format name 


USE CF1 TO EXIT APPLICATION 
DEFINITION MENU. 


HEIF--He Lp CFiL3-Status CF14--Review fields CFLIS-Review FNS 
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SOLUTION TO MACHINE EXERCISE 2 — PREFERRED VENDORS 


APFLICATION CREATION 


Enter the following: 
Application name: AFPQ4SXX 


Library name: LC 


PROMPT 


Fublic authority: (4-Normal 2-None 3-ALL) 


Adopt owner's user profile: (Y-Yes 
Optimize Query: (Y-Yes 
Source Listing: (Y-Yes 
Dump internal data areas: (Y-Yes 
Generated code Listing: (Y-Yes 


Job description name: QRATCH 


N-No) 
N--No) 
N-No) 
N--No) 
N-No) 
(%-Job description Li 


Library name: GLC 


Execution following creation: Y (¢Y-Yes 


N--No) 


PRESS ENTER THEN CF11 


QUERY EXECUTION FROME T 


Query names AF R4 XX Library: 
File names AFLVENT 


Enter the following’ 
Type of output? 
I[nput file member ¢ 
Number of records to query’ 
Job description? QHRATCIH 
Library names’ (olC 


Bl LF eles bp Cr2-Frevious display 
Existing application will be deleted at job 


GL.C 


C1-Report 2-F i le 


Cx%-List Rlank-F ir 


C(Blank-ALL records) 


submission time. 


st) 


3-BHoth) 
gt member > 
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SOLUTION TO MACHINE EXERCISE 2 — PREFERRED VENDORS 


QUERY CREATE./CHANGE/DE!ETE MENU 


Select one of the following and enter values below? 
1. Tlisplay information about a qyuery 
=e Create a new  yuery 
3. Change an existing ‘Luery 
4. Tlelete an existing Very 
S. Display status of yueries submitted 


Options: 


— 


fuery name? AF'lQ4 XX C(%-Query selection List) 


Library name? GL..C 


CF1 TO RETURN TO THE 
PROGRAMMER MENU 


HIEL. Fe Le Ck2--Previous disp lay 
Job AFR4AXX.OL.0+-005090 submitted for application AFQ4XxX.GLC. 





DATE. 04/03/86 TIME 13°21°31 


QUERY EXERCISE FOR - (STUDENT NAME> PRINTOUT FROM QUERY CREATION 


LOOK ON YOUR GLC PRINTER 





Application? AF'Q4XX.GI_C 


Queried file: AFI VENT!.GLC Member ; APLVENEI! 


File resorted according to following sort order? 


RECORD FORMAT FIELI SEQUENCE SIGN 
VENTIMAST VNIICL.S ASCEND ¥*YES 
PCHYTE DESCENT *YES 


User specified record selection criteria? 


RECORD FORMAT OFTION FIELD SELECTION TEST 
VENDMAST *SELECT SRYRTG REQ *A?® 
TELRTG mEQ *A?® 
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MODULE SUMMARY 


You learned many things about the Query Facility. You learned 
about the Control Language commands, prompting displays, and 
uses of Query. You also learned that Query is very similar to 
DFU. Many of the prompting displays are the same, and both 
utilities have these phases: definition, creation, and execution. 
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NOTES 
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NOTES 
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NOTES 
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PURPOSE 


TIME ESTIMATE 


MODULE OBJECTIVES 


TERMS 





Chapter 14. DEBUG Facilities 


In this module you learn about the diagnostic or debugging 
facilities available through the CPF. You do a machine exercise 
which illustrates their use. 


One advantage of using the CPF debug facilities is that they do 
not have to be written into your program and then later 
removed or crippled when the program runs correctly. A person 
who has used a language like COBOL, where the debug facilities 
must be coded in a program, can especially appreciate this 
feature of the CPF debugging facility. 


2 hours 


After successfully completing this module, you should be able to: 
e List as least four commands that can be used in Debug mode. 


e Use the ENTDBG command to enter Debug mode at a 
display station. 


Use various Control Language commands while in Debug mode. 
Use the ENDDBG command. 


Briefly explain the purpose of a test library. 


List the steps required to create a testing environment. 


The following terms are defined or described in this module: 
Debug Mode 
Trace 
Breakpoint 


Program variable 


At this time, begin your study of the Module 14 text. 
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MACHINE EXERCISE — DEBUG FACILITIES 


In this exercise you use the debugging facilities of the CPF 
without having to find a programming error. 


Instructions 
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In doing this exercise, it is recommended that you use CMD 4 to 
get the command prompt when you are instructed to enter a 
command. 


1. 


Sign on using the password GLC and select the Command 
Entry Display. 


Execute the Enter Debug (ENTDBG) command to get into 
debug mode, specifying: 


APR21 as the program to be debugged. This is an RPG 
I! program. 


*YES for the UPDPROD parameter value. You will be 
updating your APLTRNxx transaction file. 


Note: There is no successful completion message for the 
ENTDBG command. However, if you are already in debug 
mode, you will get a message that the command will not 
execute “in this mode.” 


. Using the Add Breakpoint (ADDBKP) command, add 


breakpoints at statement numbers 600, 900, and 1100. 


To help you understand the purpose of the 
breakpoints, the RPG Ill program statements are 
listed below. 


600 99 SETON LR 
900 VNDNBR_ CHAIN APLVEND 50 
1100 N50 WRITE —PAYBLE 





J 


10. 


Execute the Override Data Base File command, as follows, 
to change the file APLTRN specified in the program APR21 
to your file name. 


OVRDBF FILE(APLTRN) TOFILE(APLTRNxx) 


. Execute a Display Override (DSPOVR) command to see that 


your override Is in effect. 


. Run the program APR21 using the CALL command. 


When the data entry display appears, enter whatever 
values you want. Record the values you enter below. 


VNDNBR 
INVNBR 
DATREC 
MERCH 
DEPTNO 


Statement number 500 presents the data entry display. The 
next statement, 600, is the first breakpoint. 


Press ENTER to continue. 


. At the 600 breakpoint press CMD 3 to get the Command 


Entry Display. Note that this is one of the command keys 
listed at the bottom of the display. 


Display the indicator 99 using the Display Program Variable 
(DSPPGMVAR) command. Indicator fields are named *INnn. 
lf you want to display all 99 numeric indicators, simply 
enter “IN. 


Is indicator 99 ON or OFF? 


. Next, display some of the values you entered on the data 


entry display. Get the field names from Step 6 above. 


lf you haven't already done so, take the time to look at all 
the information given on the Program Variable Display. 


When you are finished displaying values, you can either 
enter the Resume Breakpoint (RSMBKP) command, or press 
CMD 1 to return to the Breakpoint Display and then press 
ENTER, to resume processing and continue to the next 
breakpoint (900). 
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11. At the 900 breakpoint, request the Command Entry 
Display. 


Display the field name VNDNBR. 


lf the vendor number field is invalid, not on the list below, 
change it to a valid number with the Change Program 
Variable (CHGPGMVAR) command. 


VALID VENDOR NUMBERS 


05075 
06183 
06242 
07374 
07733 
10502 
10504 
11002 
13130 
15864 
21178 
24001 
24133 
25256 
30188 
33333 
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12. 
13. 


14. 


15. 


16. 


Resume processing to get to breakpoint 1100. 


At the 1100 breakpoint, request the Command Entry 
Display and display the value in the vendor name 
(VNDNAM) field. You will find the field is not available 
because it is not used in the program. 


Resume program processing. 


At the data entry display, enter whatever values you like 
and record them below. 


VNDNBR 
INVNBR 
DATREC 
MERCH 
DEPTNO 
Press ENTER. 


Press ENTER to get to the 900 breakpoint. Make sure the 
vendor number is invalid. See the vendor number list on the 
previous page. 


Resume program processing. 
At breakpoint 1100, do the following: 
e Change the value of *IN50 to ‘O' (Off). 


e Add a trace from statement 400 to statement 1300, 
and display the indicator variable *IN50 whenever its 
value changes. 


e Remove the three breakpoints (RMVBKP). 


e Resume program processing. 


. Using the data entry display, add two records with a valid 


vendor number and one record with an invalid vendor 
number. 


. End program processing with CMD 1. 


DEBUG Facilities 14-5 


19. Display the trace data at your display station using the ) 
Display Trace Data (DSPTRCDTA) command. Note the 
changes in the *IN50O indicator value. 


20. End debug mode by entering the End Debug (ENDDBG) 
command. 


21. Sign off (SIGNOFF). 


Return to your study carrel and continue your study of 


the Module 14 text. 
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MODULE SUMMARY 


This module introduced you to the testing environment. It 
taught you that Debug Mode, in addition to helping you debug 
programs, is a useful tool for training new users. 


You learned the purpose of test libraries and were taught the 
steps to create a test environment. 


Finally, you were given the chance to try some of the diagnostic 
commands while in Debug Mode. 


Naturally, all the concepts learned in this module will be much 
more meaningful when you apply them to your own 
programming problems. 


DEBUG Facilities 14-7 


NOTES 2 
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Chapter 15. Control Language Programs 


PURPOSE 


In this module you learn to code a Control Language program to 
control a menu display file. In addition, several commands used 
only in a CL program are introduced and their use described. 


TIME ESTIMATE 
2% hours 


MODULE OBJECTIVES 


After successfully completing this module, you should be able 
to: 


e Describe the purpose of a syntax diagram. 


e Describe the difference between a batch CL program and a 
CL program that “drives” a menu. 


e Describe the importance of “existence testing.” 
e Describe the purpose of the MONMSG command. 


e List four commands that are used in a Control Language 
program to “drive” a menu. 


e Create a Control Language program to “drive” a supplied 
menu. 


15 
BM 
At this time, begin your study of the Module 15 text. 
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MACHINE EXERCISE — CL PROGRAMMING 


As mentioned in the module text, this exercise consists of two 
parts. The first part, which is optional, directs you to code and 
create a menu display file. The second part directs you to code 
and create a CL program to control the menu display file. 


lf you do not wish to do the first part of the exercise, use the 
existing display file named APDMEN. 


Option 4 of either menu runs the query you created in Module 
13. If you did not do Machine Exercise 2 of Module 13, your 
query prints non-preferred vendors instead of preferred vendors 
referred to in this exercise. This exercise works with either 


query. 


Instructions for Part One 
1. Code the DDS for the display layout shown below. 


Display Screen Layout Sheet COLUMN 
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Instructions for Part Two 


2. Sign on using the password GLC. Select the Programmer 


Menu on the Student Exercise Menu. 


3. Enter the following values on the Programmer Menu: 


Option: 8 

Parm: APDMENUxx This is your source member 
name. Replace xx with your 
initials. 

Type: DSPF 

Src file: OQDDSSRC or blank 

sre lib: GLC 

Obj lib: GLC 


Jobd: QBATCH 


Please double check your entries before pressing ENTER. 


. Enter your source statements. 


5. Back at the Programmer Menu, enter option 3 to create the 


display file. Be sure to get your listing from the printer and 
make sure your display file was successfully created. 


lf your file is successfully created, remove your messages 


~ with CMD 6 and CMD 8. Sign off the display station and 


return to your study carrel to start the second part of your 
exercise. 


Otherwise, correct your Source errors using edit source and 
create your display file. 


. Code a CL program to control the display file you just 


created or the display file APDMEN. 


If you elect to use APDMEN, the record format name !s 
MENUA and the option field name is OPT. 


For option 4 of your menu, use the Query Data (QRYDTA) 
command to run the query application you created in Module 
13. As you may know, you cannot use the Call (CALL) 
command to run a query. 
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2. Sign on a display station using the password GLC. Select the : 
Programmer Menu and make the following entries: S 


Option: 8 

Parm: APL8xx This is your source member name. 
Replace xx with your initials. 

Type: CLP 

Src file: QOQCLSRC or blank 

Src lib: GLC 

Obj lib: GLC 


Jobd: QBATCH 
Please check your entries before pressing ENTER. 


3. Enter your source code by entering a command and then 
pressing CMD 4 to get the prompt for that command. 


4. Back at the Programmer Menu, create your CL program by 
entering option 3. Get your listing to verify that your 
program is successfully created. 


5. Run your program by selecting option 4. 


You can use the following valid vendor numbers for testing 


option 1. 
00010 11002 
O00 1 1 33355 
0002 1 72302 ) 
6. When your program runs successfully, remove your 


messages with CMD 6 and CMD 8, and sign off the display 
Station. 


Otherwise, correct your program or display file and try again. 
If you fix your display file, remember to also recompile your 
program so it uses the changes you made to your display 
file—remember level checking. 


lf you get stuck and cannot create a workable program, a 
solution is shown on the following pages. 


When finished, be sure to get your listings from the 


printer, return to your study carrel and continue your 
studies with the Unit 3 Summary. 
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SOLUTION TO CL PROGRAMMING MACHINE EXERCISE 


Typest BAS, 


Uption’ 


Call 


FPROGRAMMER MENU 


Iesiqn/execute LF app 


Tesign/execute yuery app 


Create object 
program 
Execute comma 


Submit job 
Display submi tted 


Edit source 


nd 


jobs 


Ylesiqn display format 


Lisaplay Menu 
Sign off 

BASP, 
FRTF, QRY, 
8 


Command? 


Text? 
Src 


CF3-Command entry 


S71 4UT1 


SOURCE, FILE: 


SEQNER* 


100 
200 
300 
400 
OO 
600 
700 
B00 
900 
1000 
1100 
1200 
1300 
1400 





RO?TMOO 


1 e# * ¢ 


DPrrPrr?rrrrrrPrsDyDyD 


ESCHF , 
RF'G » 


file? QuDSSRC 


850913 


CBL 
RET, 


Farm? APTIMENUXX _ 


QOULISSKC.GLC 


4 = ’ 


RK MENUA 


OFT 


Src Lib’ 
CF4-Fromp t 


»>Coptions)?) 
» Coptions)d 
type, 


Capp)» 
(APP) >» 
object name, 
Program name 
command 
(job named, (comman 
(srcmbr), (type), ¢ 

(srcmby ) 

(menu) 

(W#NOLIST #LIST>) 
» CL, CLF, CMI, CMANF, 
TXT 


Types DSPF Farm 223 


GLC 
(3,5 & 6&6 only?) 


SEU SOURCE L. 
MEMBER ¢ 


3 . ae Bote ee , 


26'°1 
26'2 
26'3 
26°4 
S4*¢ 


Fd See 


20" 9 


ODMOnN NO OGUW 


rh Ph pe 
we S 


2 Or j3 


= *# © «8 #8 E ON OI 


O F 


DFU, 


Obj Libt GLO 
CF'4—-DSFMSG 


pam for CME, 


d)> 


text) 


SPF, CF, 


SYSTEMS ATLETDDEYV 


(text) 


MXDF, PF, FLI, 


Log requests} 


ISTING 


AF TIMEN 


c 
>>, wih ¢£ @ @ o@ 4 


ENTER 


4!) CARFR21)° 


— PRINT 


TA? CAFR250) ? 


- FRINT 


v4’ CAP RSOO)? 


- FRINT 
AFQ4XX) ? 


PREFERRED 


Jobd? QHATCH 


56 4 ’ . . 1 devere 





Si’ ACCOUNTS FAYAHILE MENU? 
INVOICES * 


CASH REQUIREMENTS’ 


VENTIOR ANAL. YSIS’ 


VENTIOKS * 


- RETURN TO FREVIOUS DISELAY’ 


Oo -- 


SOURCE 


CHECK(ER) WAS CODED TO CAUSE 


THE FIELD EXIT KEY TO RIGHT 


ADJUST AND EXECUTE THE C 
OPTION. 





HOSEN 


SIGN OFF? 
S6/ENTER OF TION? 
W4CHECK CER) 


a *® 8 8 OF 
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SOLUTION TO CL PROGRAMMING MACHINE EXERCISE 


FROGRKAMMER MENU 


Select one of the following’ 
ie Desiqn/execute DFU app 
2. Design/execute  wuery app 
3. Create object 
4. Call program 
2+ Execute cummand 
&. Submit job 
f. Kisplay submitted jobs 
Be Edit source 
9. DTesian display format 

80. Display Menu 
90. Sign off 

Types: BAS, HASF, 

FRTF, QkY, 

3 


BSCF » 
REG , 


CBL, 
RPT, 


Ch.» 
TXT 
Option 
Comma neti ¢ 


Text? 
Src filet QHBSSRC Src 
CF43-Command entry CF4-Prompt 


FROGRAMMER MENU 


Select one of the following? 
1. Design/execute DFU app 
2. Desitan/execute Tuery app 
3. Create object 
4, Call program 
Oo» Execute command 
6. Submit job 
7. Display submitted jobs 
8. Edit source 
?. Design display format 

QO. Display Menu 

9O. Sign off 

Types! HAS, BASF, 
FRTF, RY, 

Options GG FParms 

Comma nd 


HSCF, CBL, 
RPG, RFT, 
AF L.BXX 


TXT 


Text? 
Src filet RELSKRC 


CF3—Command entry CF 4-Frompt 
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Parm! AFDUMENUXX Types 


Lib? GLC Ob 5 


CL » 


Src Libt GLC 
(3,5 & & only) 


SYSTEM! ATLEDDEYV 
Capp), ,Coptions) 

(aPP),» »«Coptions) 

ob ject name, type, 
program name 
comma nd 

(job name)» 


pam for CMIi, (text) 


Ccommand >) 


(srcmbr>d, (type), Ctext)d 
Csrcqmbr ) 

(menu >) 

C*¥NOLIST *LIST) 
CLF , CMD » CMNFE, QFU, OSRF P LF > MXDF P 


FF, FLT, 


LSFF Farm 2% 


Log re yuests! 


Libt GLa  Jobdi QBATCH _ 
(3,55 & 6 only?) CF4-DSF MSG 


SYSTEM? ATLEDDIIEYV 


Capp), ,»Coptions) 

Capp), »,Coptions?) 

object name, type, 
Program name 
command 

(job name), 


pam for CMI, (text) 


(comma nd > 


(srcembr), (type), (text) 


Csrcmbr > 
(menu) 
CH#NOLIST *LIST) 


CLP, CMI, CMNF, DFU, DSF, LF, MXDF, PF, FLI, 


Typet CLF PFParm 23 


Log reyjuests! 
GLC Jobdti QEBATCH 


CF 46-DSFMSG 


Obj Libs 





Cc SOLUTION TO CL PROGRAMMING MACHINE EXERCISE 


~?L14UT1 RO?MOO 850913 SEU SOURCE LISTING 
SOURCE FILE? AQCLSKC.GLC MEMBER ¢ APL BKK 
GEQGNHR*... *#¢ 4 1 *# ¢ 6 eee 2 bee *# 6 ¢ 3 oe + * * ar e# 6 6 o * @ 6 eer & 6 ? + * 7 ee 


100 FGM 

200 DCL.-F FIVE CAPDIMEN. GI.C) 

300 SNIIRCVF RCTIF MT (MENUA ) 

400 IF CONDCAOFT #EQ 1) THENCCALL FGOMCAF'R21)) 
700 IF CONDCAOFT #EQ 2) THENCCALL FGOMCAFR2OS0) > 
600 IF CONDCA&OFT *EQ 3) THENCCALL FGM CAFR3OO) ) 
700 IF CONICAOFRT #F&Q 4) THENCQRYDITA + 

800 AFR CAP Q4XX.GL.C) OUTFUTC#LIST) >) 

900 IF COND CAOFT *#£0Q 3) THENCRE TURN) 
1000 IF CONDCAOFT #£.Q 9O) THENCSIGNOFF ) 
1100 GOTO CMDIIL.BL. CF IRKST > 
1200 ENDIF GM 


* *@ #28 #R w CE ON Ii O F S OUR CE RRR HR 


PROGRAMMER MENU SYSTEM! ATLEDDEY 
yy Select one of the following? 4 
1. Design/execute DFU app (app), » (options) ar 
Tesign/execute query app Capp), »toptions? : 
Create ob ject ob ject name, type, pam for CMD, <(text>d 
Call progrem Program neme 
Execute command comma nd 
Submit job (jab nemed, ‘command? 
Disp tay submitted jobs 
Edit source Csrembr), (typed, (text) 
Desjan disptiay format Csrcmbr > 
Display Menu Cmenu ) 
0. Sign off (*NOLIST LIST) try 
Types! BRAS» BASF » EBSCF , CHL, Cl, CLF, CMI, CMNF , DFU» DSFF , LF » MxXLF , FF, FLI, ; , 
PRTF, QRY, RPG, RPT, TXT ot 
Option? 3. Parm? APLBXX Type! CLF Farm 2% 
Command ~ 


Texts ! +i : Log requests! : 
Src file? GCLSRC Sre lib? Guo Obj tibt GUC Ss Jobdt QBATCH 
‘CF3—-Command entry CF4-Promet (3,5 & 6 only) CFé-DSF MSG 
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SOLUTION TO CL PROGRAMMING MACHINE EXERCISE 


| FROGRAMMER MENU SYSTEM! ATLEDDEV 
Select one of the following? 
i, Desian/execute DFU app Capp), »(options) 
2» Design/execute query app (app), ,<options) 
3. Create ob ject object name, type, pgm for CME, (text) 
Call program program name 
Execute command comma had 
Bubmit job (job name), (command) 
, Display submitted jobs 
3, Edit source... f{srycembr), (typed, (text) 
‘Teaign display format (srcmbr ) 
Display Menu (menu) 


» Gign off (¥NOLIST *LIST) 
Types! BAS, BASF, BSCF, CHL, CL, CLP, CH, CMNF, DFU, DSPF, LF, MXDF, FF, PLI, 
PRIF, QRY, RPG, RPT, TXT 
Optiont 4 Farm: AFPLBXxX Type? Farm 2% 
Command ! ; 


Text? Log requests: . 
Src file? MCLSRC Sre Libt GLC Obj tibs GLC Jobd! QRATCH 
CF3--Command entry CF4—Fromp+ (3,5 & 4& only) CF 46-SFMSG 
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C MODULE SUMMARY 


In this module you learned to write a CL program to control a 
menu display file. In particular you learned to use the logical IF 
command to identify the option entered by the user. You 
learned about the Declare File (DCLF) command used to identify 
a file to the compiler. You learned about the Send and Receive 
File (SGNDRCVF) command which is used to both write and read 
a display file. 


In addition, in the exercise you learned how to run a Query 
application interactively. This is important to know because you 
cannot just CALL a utility application as you would a 
user-written program. 


Control Language Programs’ 15-9 


NOTES 


J 
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Chapter 16. Screen Design Aid 


PURPOSE 


The purpose of this module is to teach the use of the Screen 
Design Aid (SDA) utility. SDA provides an alternative, and very 
productive, method for creating display device files. 


TIME ESTIMATE 
2%2 hours 


MODULE OBJECTIVES 


After successfully completing this module, you should be able 
to: 


e List the three major functions of the Screen Design Aid 
(SDA) utility. 


e Describe two ways to request SDA. 


e Re-create two display files that were created earlier in this 
course using DDS. 


e Use SDA to test a display file's format(s). 


e Use SDA to create a CL program that displays a menu. 


MATERIALS NEEDED 


For this module, you will need a copy of the Screen Design Aid 
Reference Manual and User's Guide, $C21-7755. 


At this time, begin your study of the Module 16 text. 
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MACHINE EXERCISE 1 — TESTING A DISPLAY FILE 


In this exercise you are to test your display file APDENTxx. You 
created this display file in machine exercise 1 of Module 7. 


16-2 


ZR30-0990 


i 


Go to a display station attached to a System/38 and sign on 
using the password GLC. 


2. Select the Programmer Menu. 


. On the Programmer Menu, enter option 9 and press ENTER. 


4. Select option 3 on the OPTION MENU to test your display 


file. 


Enter the required (R) information on the following prompts. 


. When your APDENTxx file display appears, enter data. Some 


valid vendor numbers are as follows: 


00010 
0001 1 
00016 
00688 
30188 


When the Output Data For Test Display appears again, 
change the output indicator to 1 to test the indicator 
operation. 


Press CMD 1 when the data entry display appears. 


Feel free to try any other tests. For instance, you may try to 
enter letters into a numeric field. 


. When finished, exit SDA and sign off the display station. 


Return to your study carrel and continue your studies 


with Unit 4 of Module 16. 





J 


MACHINE EXERCISE 2 — USING SDA TO CREATE A MENU AND CL PROGRAM 


In this exercise you use SDA to create a menu and the CL 
program to control it. This exercise reinforces what you learned 
in doing machine exercise 3 in the Module 16 text. 


You should not rush through this exercise. Read the following 
instructions carefully. Use the HELP key and reference material if 
you are not Sure about an entry. Also, you may find it helpful to 
use the roadmap of SDA displays, which is Figure 3-1 in the 
SDA Reference Manual (SC21-7755). 


lf you get bogged down in doing this exercise, a 
display-by-display solution follows the exercise instructions. 


Instructions 


1. Go to a display station attached to a System/38 and sign on 
using the password GLC. 


2. Select the Programmer Menu. 


3. Select SDA with option 9. 


Screen Design Aid 16-3 


0} 


G2 


0) 


65 


0G 


0? 


Qa 


og 


ROW 


20 


21 


22 


2) 


24 


4. On the Option Menu, select option 2 to design a menu. The 
screen layout for the menu is shown below. This is the 
Accounts Payable Menu you used in the Module 15 machine 
exercise. Here, you will create it again under a different name 
using SDA. 


Display Screen Layout Sheet COLUMN 
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In creating the menu please note the following: 


There is one important, yet subtle, difference between 
this exercise and the example you studied in Unit 4 of the 
Module 16 text. In the example in the text, the name of 
the display file and the CL program were the same. SDA 
presumes the same name will be used for the display file 
and the CL program. You can use the prompts and 
specify different names for the display file and the 
program. In this exercise you are to use the name 
APSMENxx for the display file and the name APSCLxx for 
the CL program, where xx are your first and last initials. 


To get off to a correct start, you enter your CL program 
name APSCLxx on the INITIAL MENU DEFINITION 
prompt. 





When using the Menu Definition Display, it is not 
important to get the blank line between options 4 and 5, 
as shown on the screen layout. 


Option 4 of the menu is to run the query application you 
created in Module 13. To run an existing query you use 
either the Design Query Application (DSNORY APP) 
command to run it in batch, or the Query Data 
(QRYDATA) command to run it interactively. 


In the machine exercise in Module 15, you used 
ORYDTA. For this exercise use DSNORYAPP. In reality, 
an interactive query could take ten or more minutes and 
you probably would not want to tie up a display station 
for this length of time. 


To do the 4 option, in addition to entering the material 
shown on the screen layout, enter a P in the first column, 
a C in the TYPE column and the DSNORY APP command 
in the PGM/CMID column. To see why you entered a P 
and a C, look at the explanations at the bottom of the 
display or use the HELP key. 
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e Complete the menu definition as shown in the display 
screen layout. Remember, SDA supplies the enter option 2 
prompt for you. 


When you finish your menu definition, press ENTER. You 
will get the prompt for the DSNQRYAPP command. 


Enter your query name APQ4xx and a 2 on both option 
lines. The latter entries eliminate getting the first two 
prompting screens of this command at execution time. 
Refer to the CL Reference Manual (SC21-7731) for an 
explanation of the option parameter for DSNOQRY APP. 


Press ENTER. 
e Exit the Menu Definition Display with CMD 1. 


e The SAVE DDS/CREATE DISPLAY FILE prompt is 
displayed with the name of the CL program. You need to 
change this name to the name of your display file, 
APSMENxx. Also, change the name of the library into 
which the file is to be created from QGPL to GLC. 


The SAVE CL/CREATE CL PROGRAM prompt should 
show the correct names. 


5. After you create both your display file and CL program, get 
your listings to verify that both objects are created in the 


GLC library. If the objects are not created in the correct ) 
library, you'll have to re-create them using the correct library 
parameter. 


6. Back at the Programmer Menu, enter option 4 and your CL 
program name APSCLxx in order to run and test your menu. 


When you select option 4 on your menu, you get a prompt 
requesting the file member name to be used in this query. 
Just press ENTER to continue. 


7. If you experience problems, use SDA to make corrections 
and try again. If you feel you are stuck and need help, use 
the display-by-display solution that follows to guide you. 


8. When you are ready to sign off, display your messages with 
CMD 6 and then remove them with CMD 8. 


9. Sign off the display station and be Sure to get your listings 
from the printer. 


Return to your study carrel and continue your studies 


with Unit 5 of Module 16. 
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SOLUTION TO MACHINE EXERCISE 2 


PROGRAMMER MENU SYSTEM? ATLEDDEYV 
Select ane of the following? 


i. DBesign/execute DFU app Capp), »Coptians) 
2. Nlesign/execute query app Capp), ,»toptians) 
3. Create ob ject object name, type, pgm for CMD, (text> 
Call program Program nane 
Execute command command 
Submit job (job name), (command> 
Display submitted jobs 
Edit source Csrcembr), (typed, Ctext)d 
Design display format Carcembr ) 
Nisplay Menu (menu) 
Sign off CHNOLIST #LIST)> 
Types: BAS, HASP, BSCF, CHL, CL, CLF, CMD, CMNF, DFU es DSPF, LF, MMDF, PF» PLIy 
FRTF, ARY, REG, REPT, TXT reas ‘y2: 
Option? 9 Farm? Type Farm 23 
Command: 


| = 
Py 


Text? a 3 Log requests! 
Src filet Src Lib? #iTBt Obj Libs _ GLC _ doabd? QBATCH 
CF3-Command entry CF 4-Prompt (3,5 & 6 only? CF 4é-DSFPMSG 


SDA OFTION MENU 


Select one of the following? 
1. Design display record formats 
2“. Desigqn a menu 
Se Test an existing display record format 


Option? 2 


== 


Within SLA 
Fress HELF key to display help text for the current display. 
Fress CFi key to exit any option and allaw saving the changes. 
Press CF? key to back up to the previous display ina series, 
Presa ENTER/REC ARV ta advance to the next display. 
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SOLUTION TO MACHINE EXERCISE 2 


SDA 


INITIAL MENU DEFINITION 


Menu/member : 

(blank for MEMBER LIST display) 
CL source file: 

Library: 


BESCLXA___ 


Command to be executed 
when CFi pressed on the menu: 
Type: 


(CF4 for prompt) 
FP-Call pam 
L-with parms 
Number of columns for the menu (4 or 2): fj 
ALlow this menu on the fallowing display sizes: 
DISPLAY SIZE CY N) 
#DS4, 27x132: 2 
#DS3, 24x80: ¥ 
#DS2, 12x80: 
DSi, 16x64: 


Display date and time on the menu: 


Menu Title: ACCOUNTS PAYABLE uENU 


STA 
Title? 
OFT TON 


MENU DEFINITION 
ONG CUI TY aE Ot A an ec ee ee 
MENU FROMF'T 
ENTER.INVOICES 00. .. CAER2L2.._ eit 
ERINT..CAaSd BEQUIREMENTS. CAP R250) eee 
ERINT.VENDOR_ANALYSIS.___CAFRK30Q2. 
ERINT..AREBERBED VENDORS CORQAXX? oe eee ee eee ie 
RETURN TO_FPREVIOUS. DISELAY_ 
eLlGN. OEE 2.5%, 


ee ee ee ee ns eee es ee ee ete 


fe eee eee eee a ee ee ee ee ee 


re ee ee Se de eee eee eee 


err 


Fe me ee ee a Ne de RE re ieee ey gee ey ee a ed 


ee ere re eee Stree Peer eee ee ee eee ee ee ee Cee eee ee ee ee ee 


ee ee ee fe et ere ee ee ee er 


Pee ee ee ee ee ee ee et et eee Cee ee eet ee ee Se et eer ery 


ee eee ee tee te eT tere Pee fr ete ir te ee 


Seman ere em ee Lm ee gee ee eee eS Ml teh Oe be ee eee thee be ee ee ee ee Reed ee ed ee ee 


Ce Ra ce Re em RR Rm ey A RR Md Pk ee ee 


ee ee Re el ee ee eg A el gh ee Ee pe me Re ee leh tee en ee em a A 


I-Insert [--TLletete TYRE 
C--Copy A-Af ter 


F-Frompt for command now 


- Call program?’ Other 
F-No parameters 


lL-Farameter lList 
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(Ignored for *DS1i) 


C-CL command 
E-execution prompt 


(i4-column menu only) 


O46 options of 20 

TYFE FGM/CML! 
| fa 2 9 
AF R220... 
AFR3O0 
ISNQRYGEE... 
RE TUGBN. 
SIGNOE EW... 


arrearen “ om FD ee a 


commands $ 


CCl. comma ned 
E-Execution time prompt 





C 


SOLUTION TO MACHINE EXERCISE 2 


Design Query Application CDOSNQARYAFF) Frompt 


Enter the following! 
Label? 
Query name! AFF’ 
Library name? 
Option? OF TIGN 


library for output filet OUTLIR 
Authority for output fite? FPUBSAUT 


PRESS ENTER THEN 
CF1 TO EXIT 





SUA SAVE DOS/CREATE DISFLAY 


Save the generated DDS source 
Source file where BDUS is to be saved! 
Library? 
Member $ 
(blank for MEMBER LIST display) 


Create a display file from the TDS 
Tiisplay fite 
Library? 
If create fails, display spooled Listing 
Replace existing file 
Frompt for additional CRTENSFF parameters 
Create file if IDfIS mesasage severity 
is less than GENLYVL 


Submit display file creation in batch 
Job description? 
Library? 





AP Q4XX 
PRY 


eis 
2 
RERORPT— 


Nd? Y 
R GODSSRO 


GLE 
AP SCL XX 


Y 
R AF SGMENXX 
GLC 
Nd? Y 
N)! 


ND3 


(O 10 20 or 30)! 20 


CY NXDYY 


QERATCH 
iL TEL 
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SOLUTION TO MACHINE EXERCISE 2 


SAVE CI/CREATE CL. PROGRAM 


Source file where CL is to be saved? Fe G@CLSGRO 
GLC 
AF'SCL XX 


Library? 
Member 3 
(blank for 


MEMBER LIST display) 


Create a Chl program from the Ch source Y 


Ch. program’ 
Library’ 


Lf create fails, display 
Replace existing program 
addttional CRTCLFGM parameters 


Frompt for 


Submit the CL creation 
Job description? 
Library?’ 


FROGRAMMER MENU 


Select one of the following? 
‘4. Desian/execute DFU app 
2s Desiaqn/execute w~uery app 
3. Create ob ject 
4, Catl program 
5. Execute command 
&+ Submit job 

Disptay submitted jobs 
Edit source 
Design display format 
Disptay Menu 
Sign off 

Types! BAS, BASF, HSCF, CEL, 


FRTF, QRY, RPG, RFT, TXT 
Type! 


Option’ 4 Farm! AFSCLXX 
Command? 


Text 


Gre filet 
CF3-Command entry 
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in batch 


: AFSCLXX 
G6L.C 
Listing $ Y 


spo0oated 


Y 
QHATCH 
*L. TB. 


SYSTEM? ATLEDDEV 


(app), »Coptions) 

CaPP?>» ,»Corptions) 

object name, type, pam for CMD, 
Program name 
comma nd 

(job name), 


(text) 


(comma nd > 


Carcmbr), 
(srcmbr >) 
(menu) 
(HNOLIST *#LIST> 

CLP, CMI, CMNF, BFU, OSPF, LF, MXIF, PF, FLI, 


(typed, (text) 


Parm 2? 


Log requests? 


Sre Libs LBL Obj Libt_GLec Jobd! QBATCH 
CF4-Prompt (3,5 & & only) 


CF é-LSF4MSG 





SOLUTION TO MACHINE EXERCISE 2 


4/O3/B6 ACCOUNTS FPAYARLE MENU 
Select one of the following? 
1. ENTER INVOTECES CAP R21) 
we PRINT CASH REQUTREMENTS CARR2ZSO) 
Je PRINT VENTIOR ANALYSTS CAP E300 ) 
a4, PRINT PREFERRED YENDORS CARQ4*x) 
ce RETURN TO FREYVIOUS DISELAY 
90. STGN OFF 


Options’ 


15337304 


Screen Design Aid 
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MACHINE EXERCISE 4 — USING SDA TO CREATE A SUBFILE 


Part 1 


Instructions 
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Using SDA can be very productive, therefore, you are 
encouraged to take the time to do this optional exercise. 


The exercise has two parts. In the first part you are to do a 
hands-on example in the SDA reference manual. This example 
takes you step-by-step through the design and creation of a 
display file with a subfile. It reinforces what you just studied in 
the module text. 


In the second part of this exercise you use SDA to design and 
create a display file with a subfile. 


Do the hands-on example in the chapter entitled “Example: How 
to Design and Create a Subfile” in the SDA Reference Manual 
(SC21-7755). This example is quite complex, because you will 
be designing both a subfile format and a subfile control format. 
Follow the instructions carefully making sure of your entries. 


1. To do the example, sign on with the password GLC. 
Enter your initials or ID and select the Programmer Menu. 


On the | WELCOME BACK ! display you may see at the 
bottom of the display the question “Are you performing 
Exercise 4 of Module 16?” If this question appears, leave the 
answer N and press ENTER to continue. 





2. Do the example instructions except as follows: 


e Use the name EXAMPLExx both for the member and file 
name. Replace xx with your first and last initials. 


e One helpful hint when you do this example: position the 
ruler on line 2 of the work display, rather than line 1 as 
instructed. 


If you position the ruler on line 1, you will enter a 
heading over the ruler and lose alignment ability. In 
general, you should make a point of putting the ruler on a 
line where no or few entries are to be made. 


e On the SAVE DDS/CREATE DISPLAY FILE prompt, 
change the library where the file is to be created from 
QGPL to GLC. 


3. If you are confused after you have gone through this 
example once, you may want to go through it again after 
removing your source member and deleting your file. 


RMVM FILE(QDDSSRC.GLC) MBR(EXAMPLExx) 
DLTF FILE(EXAMPLExx.GLC) 


4. Get and examine your listings from the printer. Verify that 
your display file was created in the GLC library. 


Use the commands in step 3 above to remove your source 
member and delete your file. 
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Part 2 


In this part you design and create the display file shown below 
using SDA. This is the Vendor Search display file you defined 
and created in the desk and machine exercise 2 of Chapter 7. 
You will not use this previous material. You will start from 
scratch by using a different name for the display file you design 
and create here. 


Display Screen Layout Sheet COLUMN 


or F7 


11-720 me hy 1 
_‘pnue a mst i): MENON TsaTal slolrisalorratalalsle a oat aLal aisle 7lelaoh TasTalster Tato Ton ae yr meee Tatycal® Taj 


ie Te gids sc gc AD st preys Uae Coa ee ey |e 
oie ais set VEN DO CARON ot fee oe ce ie ee ee oe 


{ (aera meee Ie 
Md aida ay 


71-89 


eC OT 
LIZ 34156] 71 BI9Ob 234 Sie elo lGl i ga 141 51617 WBI91Ol i 12131415161? 18 TOT 213] 4156 7a olor 2al4isl6l7leision [2131 sTstel 718 61 718TSTo 
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Instructions 


After creating your display file, you test it with the same 
existing program APR25 you used in Chapter 7. Note that 
names used in APR25 determine names you muSt use in your 
display file design. The names required are given in the 
following instructions. 


Because this exercise is a simpler version of the example 
exercise you just completed in Part 1, you should, to avoid 
confusion, follow the sequence of SDA displays used in the 
example. Where there are deviations from this sequence, they 
will be explained to you. 


A solution follows this exercise. To get the most from this 
exercise, use the solution only after you have successfully 
created your display file and wish to review the course solution, 
or if you become completely bogged down. 


Please read the instructions for each step carefully before doing 
the step. 


1. If you signed off, sign on to a System/38 display station 
with the password GLC and select the Programmer Menu. 


2. On the Programmer Menu select option 9 and make the 
following entries: 


Parm: APSSRCxx This is your source member name. 
Replace xx with your first and last 
initials. It will also be your display 


file name. 
Type: DSPF 
src file: QDDSSRC or blank 
Src lib: GLC 
Obj lib: GLC 


Jobd: OBATCH 


3. The existing program you will use to test your display file 
requires the following entries on the appropriate SDA 
prompts: 


e Name your subfile control record format SCHCTL. 
e Name your subfile record format SCHDTA. 
e The data file used is named APLSCHVN. 


e Indicator 99 is used with Command key 1, CAO1, for 
end of job. 
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e The following indicators are used for the listed 


keywords. 
75  DSPSFL 
76 DSPSFLCTL 
77  DSPCLR 


Following are additional instructions and entries you are to 
make. 


Make the subfile size 50. Make the page size 10. 


No messages are displayed because for this simplified 
example, the program does not check for an invalid vendor 
search value. 


After selecting Field Definition to design the subfile control 
record, press CMD 11 to get fields from the data file 
APLSCHWN. Note that the field SCHCOD is the vendor 
search field. Select this field as an input field. Later, you will 
change the name of this field to CODE1 as required by the 
program. 


Enter the column headings for the subfile records as 
constants, rather than use the method of the Example you 
did in Part 1. 


When you finish designing the subfile control record on the 
work display, press CMD 10 and change the field name 
SCHCOD to CODE1 on the Field List Display. 


When you get to the SAVE DDS/CREATE DISPLAY FILE 
prompt, you must make an adjustment to your 
SDA-generated source before you create the display file. 
This is required because you use an existing program to 
process your display file. The indicators 75, 76, and 77 with 
their keywords are in the following sequence in the existing 
program: 


76 SFLDSPCTL 
75  SFLDSP 
77 ~~ SFLCLR 


This sequence is different from the sequence in your display 
file source generated by SDA. 


You need to do the following: 


— On the SAVE DDS/CREATE DISPLAY FILE prompt, 
change the Y to N so as not to create the display file at 
this time. You do want to save the source. 


Press ENTER. 


Press CMD 1 (CF1) until you get back to the Programmer 
Menu. 


— Enter option 8 on the Programmer Menu and when the 
source appears, move the specification 76 DSPSFLCTL 
to get the order shown. 


Exit SEU. 


. Enter option 3 on the Programmer Menu to create your 
display file. 


. Execute the following override display file command to direct 
the existing program to your display file. 


OVRDSPF FILE(APDSRC) TOFILE(APSSRCxx) 


. Call the program named APR25 using option 4 on the 
Programmer Menu. 


. When your display file appears, type in BEST for the vendor 
search value, press ENTER. Your display should list vendors 
starting with BEST AND COMPANY. 


lf you wish to do some more tests, the following are valid 
search arguments: 


LINSEED UNDERHILL 
PINE WINTHROP 
ACE 


. Back at the Programmer Menu, press CMD 6 to display 
messages, then remove the messages with CMD 8. 


. Sign off the display station and get your listings from the 
printer. 
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10. Because this is the last machine exercise you will do, you 
need to remove your exercise material from the system. To ) 
do this, sign on with the password GLC. 


Enter your initials and select option 2 on the Student 
Exercise Display. 


When the ! WELCOME BACK |! display appears answer Y 
to the question at the bottom of the display. It will take a 
little time to delete your material. 


Now sign off. Thank you for deleting your material. 


Return to your study carrel and continue studies in 


Module 16 with Unit 6. 
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SOLUTION TO MACHINE EXERCISE 4 


C 


FROGRAMMER MENU SYSTEM: ATLEDIIEV 
Select one of the following! 
1. Design/execute DFU app Capp), »Coptions) 
2. Tesiqn/execute query app {(apP),» » (options) 
3. Create object ob ject name, tyres pgm for CMD, (text) 
A. Call program program name 
5. Execute command comma nd 
6. Submit job (job name), Ccommand) 
7. Display suhmitted jobs 
6B. Edit source (srcmbr), (typed, (text) 
9. Tesign display format {srembr > 
BO. Tisplay Menu (menu >) 
990. Sian off CHNOLIST *#LIST) 
Types! BAS, BASF, BSCF, CBL, CL, CLF, CMD, CMNF, DFU, DSPF, LF, MXDF, FF, FLI, 
FRTF;, QRY, RPG, RET, TXT 
Option? 9 Farm? AFSSROXX Typet [USEF Parm 2 
Comma nad 


Text? : Log requests? * 
Src Tilet ADBISSRC Src Libs GLC Obj Libs GLE Jobdi QBATCH 
CF3~-Command entry CF4A-FPrompt (3,5 & & only? CF 4--DSPMSG 


SUA OFTION MENU 


Gelect one of the following? 
1. Design display record formats 
2. Tesign a menu 
Se Test an existing display record format 


Option? 1 


Within SLA 
Fress HELF key to display help text for the current displays 
Fress CFi key to exit any option and allow saving the changes. 
Press CFO key to back up to the previous display ina series. 
Fress ENTER/REC ADV to advance to the next display. 
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SOLUTION TO MACHINE EXERCISE 4 


STIA DESIGN RECORD FORMAT MENU 
Select one of the following? 
1. File Definition 
Record Format Definition 
Field Definition 
Subfitle Control Record Definition 
Bubfile Record Format Definition 
Save D0S/Create Display or Mixed Fite 


Dptiont 4 


New or existing dizxetay record format 
(blank for RECORD FORMAT LIST display) Record format? SCHCTL. 


Enter the source file for LUS DIS source file QDIISSRC 
Library? GLC 
New or existing member name 
(blank for MEMBER LIST display) Member 3 APSSRCXX 
Source type (OSPF, MXIIF or blank for default) Type? 


Enter additional rerord formats to be Additional records’ 
displayed on the WORK [ISFLAY 


STA GUBF ILE CONTROL RECORD TNEFINITION 
Record’: SCHCTL i =) OB ce my ©) | mpd OB erm | 6 | ey 9 ee | 5 Bere mc eC 
1. General Control Record Keywords 3. Subfile Messeges 
2. Subfile Display Layout 4. Subfile Message Record 
Option’: 2 
1. Generai Control Record Keywords 


Enter the name of the related subfile record SFLETI_ RK SCHunrTaéa._-_ 


Enter a CA or CF key to switch from folding to truncating 

records when the key is pressed SFLOUROF 
If ENTER/REC ADV is to be used as ROLLUP specify CA or CF 

key used in place of ENTER/REC ADDY SFLENTER 

CY ND Non Non Non or + 

Tisptlay subfite records SFLISF RY ee a" 
Display control record SFLIGPCTL ¥ ma 
InitiaL:ze subfile fields SFLINZ 

Delete subfile area SFLOLT 

Clear subfile of records for input SFL.CIR 

Tisp lay + for more records SFLENT 

Record not active SFLANA 

Invite devices for later read INVITE 


no ee 
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SOLUTION TO MACHINE EXERCISE 4 


SHA SIE Toe 

Record’: SCHCTL TEXT? SURF : 
1, General Control Record Keywords 
2» Subfile [Display Layout 

Option? 3 


CONTROL 


2s Subf i le 


The following keywords will determi ne 


records in subfile 
records per display 
spaces between records 


Number 
Number 
Number 


RECORD 


NEFINITION 
COR 
3» Subf ile Messages 


4. Subfile Message Kecord 


Tlisplay Layout - =~ - ~~ - - - 


the subfite display tayout? 


LISPLAY 


SFLOTZ 
SFLPAG 
SFL. IN 


PRESS CF2 TO RETURN TO 
DESIGN RECORD FORMAT MENU 


SrA 
Select one of the followings’ 
14. File Tefinition 
Record Format Definition 
Field fefinition 
Subfite Control 
Subf ihe Record Format Definition 
Save TDS/Create Display or Mixed 
Options 2 
New or existing display record format 
Cb Lant: 
Enter the source file for OS 
New or existing member name 
(blank for MEMBER LIST display) 
Source tyne COSFF, MXIIF or blank for 
Enter addittonal record formats to be 
Aisplayed oan the WORK DTSrlLay 


LES TGN RECORLT 


for RECORI FORMAT LIST display? 


defauit> 


FORMAT 


Record Yiefinition 


Fite 


Record farmat? 


MNS source fitie$ 
Library? 


Member $ 
Type 


Additional records? 


SIZE 


SCHC TL. 


AQUNSSRC 
GLC 


AP SSRCXX 


DSF 
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SOLUTION TO MACHINE EXERCISE 4 


SnA RECORD FORMAT DEFINITION 

Record! SCHCTL TEXT’? SUBEILE CONTROL BECORD 
1. Command Keys and Indicator Text 4, General Kecord Keywords 
2.e Output Keywords ve Overlay Keywords 
3+ Input Keywords 4» Routing Feedback 


Option: 
Commend Keys and Indicator Text 
KEY- cond/tioning allowed’ (CFOL-24 CA01-24 CLEAR ROLLUP ROLL.DOWN HELP HOME> 


KEY- without conditioning? CINDUTXT VLOCMIIREY SETOF/SETOFF CHANGE > 
Nnn Nnn or + KEY IND TEXT 


CAQl a... 22 END OF JO 


PRESS CF2 TO RETURN TO 


CROLL for more) 





SDA ESIGN RECORD FORMAT MENU 
Select one of the following? 

1. Fite Definition 

2. Record Format Lefinition 

3. Field Definition 

4. Subfile Control Record Definition 

5. Subfite Record Format Definition 

4. Save [NS/Create Display or Mixed File 


Options 3 


New or existing displey record format 
CbLank for RECORD FORMAT LIST diaplay?) Record formet? SCHCTL 


Enter the source file for TIS LHS source filet QnucISSRC 
Library? GLC 
New or existing member name 
(btank tor MEMBER LIST display) Member % APSSRCXX 
Source type CUSFF, MXIIF or blank for default) Type DSFF 


Enter additional record formats to be Additional records? 
displayed on the WORK BISFLAY 
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c 


SOLUTION TO MACHINE EXERCISE 4 


PRESS CF11 TO GET THE DATA 


BASE FILE DISPLAY 


SrA Work liap lay’ Fress HELE for List of valid commands and CF keys. 





Sia TATA BASE FILE DISPLAY 


Enter data base file names from which fields are to be displayed, 
For X-I-O-H$ Enter an X to display DATA BASE FIELD DISFLAY 
Enter usage attribute: I to assign field as input field 
O to assign field as output field 
B to assign field as both field 


DATA BASE FILE LIBRARY RECORE! FORMAT 
AE LSCHYVN_ 
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SOLUTION TO MACHINE EXERCISE 4 


STA DATA BASE FORMAT [IST 
Lata base file ArPLSCHVN Library? *%L TRL 


Record format List? 


1 VENT 


i 


1 - Gelert record format to use with DATA BAGE FILE DISFLAY 


SUA TATA KASE FIELO DISPLAY 
Record? VE.NII 

Ta scroll the file enter the number of fields to roll 
To search the file for a field enter the field name 


For X-I-~O--# Enter X for the EXTENDED MATA BASE FIELD DISPLAY. 
Enter I, GO, or EB for usage and selection of the fietid,. 


X-I-O-B FIELD LENGTH TYFE COL.UMN HEADING 
VNIINAM 25 VENTIOR NAME 
VNTISL.S ao SALESF'ERSON 
YNIIZ TF 299 : ZIP CODE 
VNIINBR +90 : VENDOR NUMBER 
SCHCOL 10 SEARCH CODE 


PRESS ENTER TO RETURN TO 
DATA BASE FILE DISPLAY 


THEN CF2 TO RETURN TO THE 
WORK DISPLAY 
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SOLUTION TO MACHINE EXERCISE 4 


C 


POSITION THE CURSOR TO LINE 1 
POSITION 1 THEN PRESS CF8 


LeUNDNAM 23 UNTIGLG SIUNTIZTe 42 UNDNER Ss SCHCOD 





LSUNDNAM 2 3YUNTISL.S SSUNNZIF 43° UNDINBR S$ SCHCOL 
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SOLUTION TO MACHINE EXERCISE 4 


rr ar eee 4 ces 
*VENTIORN SEARCH? 


PENTER CHARACTERS FOR SEARCH? AS 


"PRESS ENTER FOR SEARCH? 

¢ 

*COMMAND REY 1 FOR END OF JOR? 

9 

10 PVENTIOK NAMIE? SALESPERSON * *Z IF? *NUMBER § 
Li 

12 

15 

14 

is AFTER ENTERING THE DATA AS SHOWN 


S PRESS ENTER 
18 
LY 
e4%) 
2) 
2 
23 
LIVNENAM PIYNISLS StUNUZTE 43 UNTINBRE 53 GCHCOL 


*¢s6 ooo 4 wee ose & see * 


VENTIOR SEARCH 


ENTER CHARACTERS FOR SEARCH TITIILTC(IIT 


"KRESS ENTER FOR SEARCH 


COMMAND KEY 1 FOR ENE OF JOB 
9 

10 VENIIOR NAME SALESPERSON 

Li. 

12 

13 

i4 

15 PRESS CF10 TO DISPLAY 
16 THE FIELD LIST PROMPT 
17 

18 

19 

20 

21 


on 


a3 
1SVNONAM 23 VUNESLS SSVNEZIF 43 UNDONE 
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Cc 


SOLUTION TO MACHINE EXERCISE 4 


Stes 


Record? SCHCTH. 


OR TIELES 


LO 


20 


30 


40 


0 


60 


70 


SO 
%O 


Jo- Extended 


Add a hidden 


FEL NAME 
VENDOR SEA 
ENTER CHAR 


SUCHET 


PRESS ENTE 
COMMANTID WE 
VENLIOR NAM 
SALESFERSO 
ZK 

NUM BIER 


Fields 


Add a message field: 


SDA 


Record! SCHCTL 


ORDER 
10 
20 
30 
—__49 
—__ 30. 
60 
70 
20) 
90 


1 - Extended definition 


FIELD NAME 
VENDOR SEA 
ENTER CHAR 
CODE 1 
PRESS ENTE 
COMMAND KE 
VENTIOR NAM 
SALESPERSO 
ZIP 

NUMBER 


Add a hidden field? 
Add a message field: 


definition 


Name 3 


Name? 
Name $ 


PEL LIST 
Number of fields to rolls 16 
TYRE USE LENGTH m POS REF CONTE T TON QVEIRL AF 
CC 13 oe. 31 
. ae Od 
10 41 
22 O02 
eas) OF 
14 O9 
11 1 36 
3 62 
6 70 


P - Pelete field CR - Sort fields by Line/Fos 


Oy cher Lang ths 


* 
+ 
Name % Oy der 3 Leng th? 


FIELD List 
Number of fields to roll? (146 
LINE FOS REF CONTITION OVERLAF 
C; 1i3 02 Si 
Cc 27 04 06 
10 O04 4i 
22 06 02 
26 08 02 
11 10 Oo? 
ii 19 36 
3 10 62 
6 10 %0 


TYFRE USE LENGTH 


AFTER ENTERING THE DATA 
PRESS CF2 TO RETURN TO 
THE WORK DISPLAY 


9 ~ Telete fieid CF43 ~ Sort fietds by Li ne/Fos 


Length? 
Length 
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SOLUTION TO MACHINE EXERCISE 4 


*¢¢ eos AN see Ce = ae + ‘ © e ° * o ? o¢¢ 


VENDIOK SEARCH 
ENTER CHARACTERS FOR SEARCH SIITITIIIIT 


FRESS ENTER FOR SEARCH 

? ’ 

COMMAND KEY 1 FOR END OF JOR 

g 

19 VENDOR NAME. SALESFEKSON NUMBER 
12 

12 

13 

14 

1S ENTER AN S$ TO INDICATE 
16 COLUMN SEPARATORS FOR 


. CODE1 FIELD PRESS ENTER 


19 
=O 
21 
2 
AR) 
LtUNDINAM 23UNIISLS SSVNDZIF 4% VNTINER 


= 
* @+ + oes 4 sae #e6¢ Jd #6 6 + 


VENTOR SIEARCH 


ENTER CHARACTERS FOR SEARCH TTT TL TUL 


“RESS ENTER FOR SEARCH 


COMMAND KEY 1 FOR ENDI OF JOB 

9 

10 VENTIOR NAME: SALESPERSON é NUMBER 
1 ‘1 

12 

1° 

14 

1S 


14 


PRESS CF8 TO REMOVE RULER 


19 
20 
2 iL 
wa 
aS 
1S UNEIINAM 2SYUNDSLS SIVNOZTF 43 UNIINBR 
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C SOLUTION TO MACHINE EXERCISE 4 


VENIIOR SEARCH 


ENTER CHARACTERS FOR SEARCH AALAMARSRIBURGHARGBE 


FRESS ENTER FOR SEARCH 
COMMANIL REY 1 FOR END OF JIOK 


VENDOR NAME SALE SFERSON LP NUMER 


PRESS CF2 TO RETURN TO 
DESIGN RECORD FORMAT MENU 


Li UNTINAM 2S UNTISLG SSUNUZTR 43 YUNTINEKR 


SA DESIGN RECORE FORMAT MENU 
Select one of the following? 
1. File Definition 
2. Record Format Nefinition 
Field Tefinitian 
Subfile Control Record Definition 
Subfile Record Format Definition 
Save [N0iS/Create Display or Mixed Fite 
Options & 
New oy existing display record format 
(blank for RECORD FORMAT LIST display) Record format SUHUTA 


Enler the source file for DLS ImS source file? QNuSsSRc 
Library? GIC 
New or existing member name 
(blank for MEMBER LIST display) Member 3 AP SSRCXKX 
Source type CISFF, MXIIF or blank for default) Typet LISF’F 


Enter addittionat record formats to be Additional records: SCHGOTL. 
displayed on the WORK DISPLAY 
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SOLUTION TO MACHINE EXERCISE 4 2 


SLA SUBFILE RECORD FORMAT DEFINITION 
Record? SCHIITA TEXT? SUBFILE RECORI FORMAT 
1. General Subfile Keywords 3. Subfile Message Record 
2e Indicator Keywords 
Option? 2. 


CY N> Nnn Nnn 
Return this record on read next changed SFLNXTCHG 
Write this record to the job Log LOGOUT 
Write this record to the job Log LOGINF* 


Allow blanks in input fields CHECK (AB) 
PRESS CF2 TO RETURN TO 


Move cursor right-to-left with | DESIGN RECORD FORMAT MENU CHECK (RI. > 


Display and/or change defaults for input fields ¢Y), 
er cancel all previously set defaults (N) CHGINFEDET 


Keep this record and any others on the display when 
closing (the default iss to erase it)? KEEP 





SDA DESIGN RECORE FORMAT MENU 
Select one of the following? 
1. File Definition 
2. Record Format Definition 
Field Definition 
Subfitle Control Record Definition 
Subfile Record Format Definition 
Save D08/Create Display or Mixed File 


Option? 3 


New or existing display record formet 
(blank for RECORD FORMAT LIST disptlay> Record format? SCHIITA 


Enter the source file for DDS rns source file? QLUSSRC 
Library? GLC 
New or existing member name 
(blank for MEMBER LIST display) Member ! AAP SSRCXX 
Source type (USFF, MXIIF or blank for default) Typet DSP 


Enter additional record formats to be Additional records? SCHCTL 
displayed on the WORK DISPLAY 
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C SOLUTION TO MACHINE EXERCISE 4 


VENDOR SEARCH 
ENTER CHARACTERS FOR SEARCH TIT IE |E|T{T|T|1ITIT 
FRESS ENTER FOR SEARCH 
COMMAND KEY 1 FOR ENT OF JOR 


VENTIOR NAME SALESPERSON ZIF NUMBER 


POSITION THE CURSOR TO LINE 11 
POSITION 1 THEN PRESS CF8 


LESVNDNAM 2° VUNIISLS SSVUNIIZIF 43 UNIINER 


VENTIOR SEARCH 


ENTER CHARACTERS FOR SEARCH (ricke|ririz berth 


1 
2 
3 
4 
5 
F 


‘RESS ENTER FOR SEARCH 


~J 


COMMANI KEY 1 FOR END OF JOR 
? 


190 VENTIOR NAME: SALESFERSON ZIF NUMBER 


*¢ 4 eee 1 6 @ ceo D2 coe oee 3 ere aoe @4 eos aoe SD cos ose & eee eee F wee eee 8 


12 
13 
14 


1S 


23 
LSVNDINAM 2S UNDSLS StVNIIZIF 43 UNIINHR 
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SOLUTION TO MACHINE EXERCISE 4 


VENDOR SEARCH 
ENTER CHARACTERS FOR SEARCH I 


PRESS ENTER FOR SEARCH 

~ 

COMMAND KEY 1 FOR END! OF JOH 

9 

10 VENDOR NAME SALESFERSON ZIF NUMBER 
$¢6 eas 1 oe ooo = *@e¢ eas 5 e066 coe 4 oaa cose 5 >’ ¢¢ ses G one ees ¢ o ¢ F eee 8 
1&1 &2 &3 &4 

13 

14 

15 

14 

17 

i8 


a PRESS CF8 TO REMOVE RULER 


a1 
22 
23 
13VNONAM 23VNISLS SIVNNZIF 437 VUNDNER 


VENDOR SEARCH 


ENTER CHARACTERS FORK SEARCH I) x|:c)x|z be |x| a |T |r 


PRESS ENTER FOR SEARCH 
COMMAND KEY 1 FOR END OF JOG 
VENDOR NAME DALE GSRERS : NUMBER 


OOVGOOOOCOOOOOGONONOOOGO0O OOVOOOHOOOOOODODOGO0000000 666646 
DON ON HOODNDOOOOOHOOOOOONN ONONHHDGOOOVOYVOOOHOHONONOHOO 66666 
QGOCNNOOoOONI OOOOH OO0G0N00 OOODOONOODN HO OOOCHOON0N0000 666664 
OOOOOO OOD ON ONO OONCOONOOOH0NG OOGONOHHBNDOOGDOOVOOOOC0O0G00 666646 
OOOHHOOHOONO0COD0B0H0b000N000 OOONDHONOOHNVOCO0HH0OGN00N0 66464 


DOOROIVDOOVANAMNNAANAANANANM NOAA OMAN AMINN AAC 464666 


ite PRESS CF6 TO PRINT THE WORK DISPLAY ae 
L Lt 
aoovODDoC| SAMPLE PRINTOUT IS INCLUDED IN THE SOLUTION) ree 


BOONOOOOOONOOVOIONOB0B00000 OOOdDBHHAHGADOH VG OOGOGNNNNNN 66666 
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C 


SOLUTION TO MACHINE EXERCISE 4 


ENTER CHARACTERS FOR SEARCH 


FRESS ENTER FOR SEARCH 


COMMAND KEY 1 FOR END OF JOR 


VENDOR NAME 


a [6[ale]elela[sialelsielalelelelaisisialelsleleje) 
NOHNDHOONNHAGON GONNA HOOOONO 
NONDNNODGOOOCOCOHGGOO000H00000 
DNOOONNHOOOOONANONOOODOONHONO 
NOCOOOOCOOONDOGDNCOHOOOOOAAAA 


VENTIIOR SEARCH 


angaandhanandnandan 


SALESPERSON 


COoOoNCOoNONONCOCHAHHC0O000 
CONOCTOVOHOHOOGOCOOCCUHN0ONVN0G 
oocnHovNHovNoNNNgONGoCOGNNCO 
QO0C0NHOCOOGOOOOBHNONnOHOONOHO 
ANANNAANNAANAAAANANAAgAOCA 


OOVDVOHNGONNNHIHGONNNO PRESS CF2 TO RETURN TO 00000 


OHOSCOCCOODNUNN 00000000 
HOODOO OHNN00O0ON0O00000000 


Work Display print complete. 


DESIGN RECORD FORMAT MENU 


OOODOHOBOVOVCOONNONGOWIUU 
ONHOHOoOOHOHOCONTHCoOHVONOOVNU 





QON00 
OB000 
VUUUBUUUUUUUUOUUUUUUOONOD 
OODNGOHNOOONOOGBONOOCO0000N0 


SItey DESIGN RECORD FORMAT 


Select one of the following? 
1. File Tefinition 
2. Record Format Lefinition 
3. Fteld Definition 


4. Subfile Control Record Definition 
3S. Subfile Record Format Tefinition 


46&. Save LS/Create Lisplay or 


Ortions _ 


Mixed File 


Zit 


66666 
46646 
66666 
64666 
66664 
466646 
646666 
66666 
666646 
4666446464 


PRESS ENTER 


New or existing cdisplay record format 


(blank for RECORD FORMAT LIST display) 


Enter the source file for BUS 


New or existing member name 


(blank for MEMBER LIST display) 


Record format; 


OS source file? 


Librarys 


Member ? 


Source type (CDISFF, MXIIF or blank for default) Type; 


Enter additional record formats to be 
displayed on the WORK DTISELAY 


Additional 


records’ 


NUMBER 


64666 
64466 
64666 
64666 
646444 
66446 
46646 
56666 
46666 
66666 





BLANK OUT RECORD FORMAT 


QNUSSRC 


AF'SSRCXX 
SPF 


SCHCTL. 


Screen Design Aid 
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SOLUTION TO MACHINE EXERCISE 4 


StiA RECORD FORMAT LIST 
GINS source files QHUSSRC Libs GLC Mbrt AFPSSRCXX Src type? TISFF 
Enter new record name or select record from List helow: 
CONTROL ORDER RECORE INT TIAL ERROR TYPE RELATED SUBFTILE 
2 10 SCHCTL SFLOTL. *ERROR 
2Q SCHIITA SIL *#ERRORK 


1 - Select record to be processed 2 
9 - Use as base for new record 9 


9394 - Additional records to display 
- Remove record format 


SDA RECORD FORMAT LIST 
muS source file’ QnUuSSRC Lio? GLC Mbrit APFPSRCXX Sre type: TSFF 
Enter new record name or select record from List betows 
CONTROL ORDER RECORD INITIAL ERROR TYFE RELATED SUBFILE 
20 SCHCTL SFLCTL *ERROR 
16 SCHIITA SFL *ERROR 


CHANGE ORDER TO CORRECT 
"ERROR PRESS ENTER 


4 - Select recoi'd to be processed 2,3,4 -— Additional records to display 
8 - lise as base for new record > - Remove record format 
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SOLUTION TO MACHINE EXERCISE 4 


c 


SLA RECORD FORMAT LIST 
INS source filet QnUssrke Lib’ GLC Mbrt AF SSROXX Sree type? TSK 
Enter new record name or select record from List below?’ 
CONTROL. ORTER RECORI INITIAL ERROR TYFE RELATED SURF ILE 
10 SHUTA SFL 
2O SCHCTL. SFLETIL SCHITA 


PRESS CF2 TO RETURN TO 
DESIGN RECORD FORMAT MENU 


Select record to be processed 2 
Use as base for new record sad 


9594 - Additional records to display 
- Remove record format 


STA DESIGN RECORD FORMAT MENU 
Select one of the following; 

1. File Definition 

2. RKecord Format Tefinition 

3. Field Nefinition 

4%. Subfile Control Record Definition 

5S- Subfile Kecord Format Definition 

6& Save [S/Create Tisplay or Mixed File 


Options & 


New or existing display record format 
(blank for RECORD FORMAT LIST display>d Record format’ 


Enter the source file for DDS LIS source fi les QUUSSKC 
Library? GI_C 
New or existing member name 
(blank for MEMBER LIST display) Member $ AF SSRCXX 
Source type CLISFF, MXIIF or blank for default) Type! LiShF 
Enter additional record formats to be Additional records: SCHCTL 
clisp layed on the WORK DISFLAY 
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SOLUTION TO MACHINE EXERCISE 4 


Sila SAVE DUDS/CREATE DISPLAY FILE 


Save the generated OLS source Not ¥ 
Gource file where DDS is to be saved! R ADDOSSRC 
Library? GL.C 
Member 3 AFSSRCKX 
(blak for MEMBER LIST display) 


Create a display file from the DDS No? N 
Display file RK APSSROXX 
Library? GLC 
If create faits, display spooled Listing CY NOt ¥ 
Replace existing file CY NDT _ 
Prompt for additional CRTNSPF parameters CY NOT __ 
Create file if DDS message severity 
ie Less than GENLVL (O 10 20 or 30)% 20 


Submit display file creation in batch CY NOt ¥ 
Job description’ QHATCH 
Library! #LITBL 


SUA BAVE DOS/CREATE UISFLAY FILE 


Save the generated DNS source NOt ¥ 
Source file where DDS is to be saved: R QUOSSRC 
Library? GLC 
Member AFP SSREXX 


(blank for MEMBER LIST display) 


Create a display file from the DIS CY NOt N 
Display file: RK AFPSSRCKX 
Library? ; GLC 
If create fails, display spooled Listing CY ND? ¥ 
Replace existing file CY ND? _. 
Prompt for additional CRTDSFF parameters CY NOt _ 
Create file if DDS message severity 
is less than QENLVL €O 10 20 or 30)3 20 


Gubmit display file creation in batch CY ND? Y 


Job description? GQHATCH 
Library? “LIBL 


* fIbS saved in member ARPSSRCXX. Fress ENTER. 
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SOLUTION TO MACHINE EXERCISE 4 


C 


SMa DESIGN RECORI! 
Select one of the following? 
1. File Nefinition 

Record Format LTefinition 
Field Nefinition 
GubfilLe Control Record Definition 
Subfite Record Format Tlefinition 
Save US/Create Display or Mixed File 


Options 


existing display record format 
RECORSI! COtiaaA 1 Tren a 


PRESS CF1 TWICE TO RETURN 
TO THE PROGRAMMER MENU 
New or existinog member name 
Colank for MEMBER LIST 
Source type CSR, MXEF or 


New or 
(blank 


mee bo aa’ 


for 


Fnter the source file 


display) 
blank for default) 
record formats to be 

WORK TISFLAY 


additional 
the 


Ent esy 
cisp layed on 


FROGRAMMER MENU 
Select one of the following? 
1. UVesign/execute DFU app 
ee LTesignvexecute query app 
3. Create object 


(app) > 
Capp), 
object name> 


»Coptians) 
sCoptians) 
type >» 


FORMAT MtNU 


Record format? 


GL.C 


mS source file?’ 
._tbrary? 


AF'SSREXX 
DSF 


Member ? 
Type’ 


Additional records! SCHCTI. 


SYSTEM! ATLEDDEV 


pgm for CME, (text> 


4. Call program 


che 
é. 
Ve 
8. 
Ps 
680. 
90. 
Types 


Dptio 
Comma 


Texts 


Sre filet QUNSGSRC Sre Lib? GLC 
CF4-FPromet (3,5 & 6&6 onty?) 


CF 3G 


Execute command 
Submit job 
liisplay submiited 
Edit source 
Nesign display format 
TDlisep lay Menu 
Sign off 
? HAS, HASF , BSCE , CHL, 
PRTF >» QRY, REG, RET, 
ni 8 Farm APSSRCXX 
nad? 


jobs 


ommnand entry 


TXT 
Typet [TDSPF Farm 2% 


Program name 
comma nd 


(job name), Ccommand ) 


Csrembr), (typed, Ctext) 


Csreqambr > 
(menu) 
C*#NOLIST *¥LIST) 


CLF, CMI, CMNF, DFU, OSFF, LF, MXDF, FF, PLI>, 


Log rejnuests! *YES 
Obj Lib? GLC Jobd! QBATCH 


CF 46—-USFMSG 
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EDIT 
FMT A* 
0000.10 
0000.20 
0000. 430 
O000.40 
0000.50 
0000.40 
0000. 70 
0000.80 
0000.90 
0001.00 
0001.10 
0001.20 
0001.30 
0001.40 
0001 .S 

0001.40 
0001.70 
0001.80 
0001.90 
6002.00 


EnLT 
FMT Ax 


0000.10 
0000.20 
0000. 30 
0000.40 
0000.50 
0000.60 
0000.70 
0000.80 
0000.90 
0001 .00 
0001-10 
0001.20 
H 01.30 
M 01.40 
0001.50 
0001.60 
0001.70 
6001.80 
0001.90 
0002.00 


Mbrs: AFSSROXX 


OF 


US Wel 
eee ese 1 * @ @ 
**** HE GINNING 

Ax 


LIA TA 


L1827242 


+ ¢ 


R SCHINTA 
11327342 


x 


VUNIINAM 

VNIISLS 

VNNZ IF 

VUNIINABR 

R SCHCTL 
11:272342 


x 


a! 
oS 


>D>PYPPPPPYMYPDPPDPYPYPPPYD 
al 
~l 


Mbrt APSSRCXX 
2 


Bon 


US Wil 


eee e Ak, 1 


eo @# 6 oe 


Ax 14%25%07 
R SCHIITA 

14225%07 
VNIINAM 
VNDIISI_S 
VNUZIF 
VNONBR 
RE SCHCTL 

14%25%t07 


b 4 


¥ 


ag 
CA 


DDODDPDP PPP PPP DPD DPDPDyY 
Nx 
“IO 


ZR30-0990 


#6 ¢ o¢¢6 


*%e** BEGINNING OF DATAKHR 


+ 


SOLUTION TO MACHINE EXERCISE 4 


3 


3 


+ 


+ 


+ 


a 


+ 


CHANGE INDICATOR ORDER 
PRESS ENTER 


+ 


I 


Scans 


4 


* 8 @ ? 


REL--RO?MOO 


REIL. -RO7MOO 


ZREFFLING UNINAM . VENTS 
2 SIREFFLOCUNISLS . VENT 
46i1REFFLINCVNOZIF. VENI 
VIREFFLIDOCUNINER, VENT 


REI~-RO?MOO 


2714-UTL 
NSFSLIZ¢24 BO x*L1S5)> 
SFt. 

a?LlL4-UTL 
TEXT C*SURPF ILE RECORD FORMAT 
ArLSCHYN 
APL SCHYN 
AFLSCHYVN 
APL.SCHYUN 
SFL.OTL <¢SCHIOTA > 
o7L4-UT 1 
CONTROL. 
OF JOR?* > 


TEXT ¢ *SUBF TILE 
CA0OIC99 FENTI 
SFLISE 
SFLISFOTL. 
SFLCLR 
SFILSTZCOOS0> 
SFILFPAGCOO10> 


RECOR 


2 Sil?’ VENDOR SEARCH 


4 


Gcan? 


4 


7 


cay 


4 


*#e6 


REL. —RO?MOO 


REL~-RO?7MO0O 


6°ENTER CHARACTERS FOR 


SEARC 


*#ae¢ 5S $44 ooo © oe #6 ¢ 7 


S714-UTi 
NGFSIZ<¢24 8O *€IIS3> 
SFL 


3714-UT1 


2REFFLOCUNDNAM. VENE APLSCHYUN 
SiIREFFLOCVNDSLS.VEND APLSCHYN 
61REFFLINCVNIIZIF. VENT! APLGCHYUN 
TIREFFLIOCVNDONBR.VEND APLSCHYVN 


REL-RO?7MOO 


SFLCTL (SCHIITA)D 

2714-UT1 

TEXT C*SUBFILE CONTROL RECOR 
CAOL(99 %END OF JOR?® > 
SFLUSP 

SFLUGFECTL 

SFLCLAR 

SFLSIZ(0050) 

SFLFAGCOO10) 


31°VENDOR SEARCH’ 
6*ENTER CHARACTERS FOR SEARC 


4 41REFFLOCSCHCOD.VEND AFLSCHYN 





C 


EDIT US Weil Mb 3 
FMT Ax eo ee Ae 1 a 


¥*e**HE GINNING OF DATA KH 
11327542 


0000.10 Ax 
0000.20 
0000.30 
0000.40 
0000 + SO 
0000.40 
0000.79 
0000.80 
0000.90 
0001.00 
6001.10 
0001.20 
0001.30 
0001..31 
0001.40 
0001.60 
0001.70 
0001.80 
0001.90 
0002.00 


* 


~“ 
> 


DDDDDDO PSDP PPD DPD D? 
al 
wJ 


SEU 


AF SSRIXX 


ase wD ove 


K SCHIITA 
LisV7sa2 


VUNIINAM 
VNIISLS 
VNOZTE 
VUNIINER 
SCHCTIL 


11327842 


EXIT 


Select one of the following; 
1. Exit without update 
\. Exit and update member 
new member 
» Update member, no exit 


» Exit and create 


ae Create member ,s 


Options 2 


For options 2 ta 53 


Text Cdescription) ? 
CY NOG OY 


Rese-Luence member 


For options | to 33 
Return to member 


For options ji to 63% 


Frint source Listing 


TOTAL RECORDS 
28 


no exit 
» Return to editing 


MEMBER FYLeE 
AF SSROXX 


CY NDS 


ALTITWE DL 


+ 


CF1 TO EXIT SEU 





CHANGE T 





SOLUTION TO MACHINE EXERCISE 4 


« 3 aoe * 6 4 * 6 4 aoe © eee eee &¢ 


RELARO?MOO &714-UT1 
DSFSIZ¢24 8O *IIGS) 
SFL 
REL-ROFMOO 3714-UT1 
TEXT * SUBF TLE RECORD FORMAT 
PREFFILIOUCUNIINAM. VENT APL. SCHUN 
S1REFFLIICVUNDSIS.VENTIO ARLSCHYN 
61 REFFLOCUNDIZTE. VENT GFELSCHUN 
VIREFFLIMOUNINER, YVENID APL SOCHYUN 
SFILCTL ¢SCHDITA > 
REL. -ROVMOO SV1L4-UT1 
TEXTC*SUIBF ILE CONTROL RECOR 
CA01~6¢99 ENT OF JOR? > 
SFLUSFPCTL 
SFLOSF 
SFLCI.R 
SFLGIZ (0050) 
SFLFAG(OO10) 
S1°VENTIOR SEARCH * 
6°ENTER CHARACTERS FOR SEARC 


LI.RRARY 
QUUSSRE GLC 


Start: 1.00 Increment: 1.00 


PRESS ENTER (NO CHANGES) 


SYNTAX ERRORS LEFT 


N 


DELETED 
1 
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SOLUTION TO MACHINE EXERCISE 4 


FROGRAMMER MENU 


Select one of the following? 
ie Design/execute DFU app 
2. Nesign/execute query app 

Create ob ject 

Call program 

Execute command 

Submit job 

Display submitted jobs 

Edit source 

Tesiqn display format 

Display Menu 

Sign off 

Types! BAS, BASF, 

FRTF,» QRY, 


4. 


BO. 


ESCF ,» 
RFG» 


CEL, 
RFT » 


Cl» 
TXT 


SYSTEM? ATLEDDEV 


» Coptions) 
» Coptions) 
type, 


CaPP) >» 
CaPP) > 
ob ject name, 
program name 
command 

(job name)», 


pam for CMD, (text) 


(command > 


Csrcmbr), (typed, Ctext) 
Carcmbr > 

(menu) 

CH¥NOLIST *LIST) 


CLF, CMD, CMNF, 


SEU MESSAGE APPEARS 


DFU, DSFF, LF, MXDF, FF, FPLI, 


Option! Farm? APSSROXX Typet DSFPE Parm 2% 


Command? 


Text?! 
Sre filet QHUSSRC 
CF3-Command entry 
Member 


Sre Lib? 
CF 4-Prompt 


FROGRAMMER MENU 


Select one of ihe following? 
1. Design/execute DFU app 
Design/execute wuery app 

Create object 

Call program 

Execute command 

Suhmit job 

Display submitted jobs 
Edit source 

Design display format 
Nisplay Menu 
Sign off 
HAGE » 
QRY » 


80. 
30. 
Types! KAS, 

FRTF , 


CHL» 
RFT » 


BSCE , 


RF‘(3 » TAT 


Gl. 


AFSSRCXX file QLLMSSRC. GL. 


CL, 


oe ee 


Log requests: *YES 
C Obj Lib? GLE Jobd? QEBATCH 
(3,5 & & only?) CF 4&-DSPMSG 

C updated with 28 records. 


SYSTEM! ATLEIMEV 
» Coptians) 
» (options) 
type» 


Capp), 
Capp), 
ob ject name, 
program name 
command 

(job name), 


pgm for CMD, (text) 


(command > 


Csrcmbr), (typed, ¢Ctext) 


€srcmbr ) 
(menu) 
CH#NOLIST #LIST) 


CLP, CMD, CMNF, DFU, DUSFF, LF, MXIF, FF», PLI, 


Option: 3. Farm? APSSREXX Typet DSFPE Parm 23 


Command ¢ 


Text: OOO" 
Sre files QOnSSKE 
CF3-Command entry 


ae ee 


CF 4—-Fr omp t 


Src Lib? GLC 


Log requests? YES 


GLC Jobd? 


CF4-DSPMSG 


Obj Lib? 
(3,5 & 6&6 only?) 


QBATCH 


Member APSSRCXX file QDISSRC.GLC updated with 28 records, 


16-40 ZR30-0990 





SOLUTION TO MACHINE EXERCISE 4 


one of the following 
Llesign/execute DFU app 
Tesigqgn/execute .wuery a 
Create object 
Call program 
Execute command 
Submit job 
Lisplay submitted 
Edit source 
Tlesign display format 
Llisplay Menu 
Sign of f 
Types? BAS, BASF, 

FRTF, QRY, 
Options Farm: 
Command ? 


Select 
1% 


jabs 


BSUF » 
RIF'G » 


CH. 
RET, 


AP SSKCXX 


PROGRAMMER MENU 


SYSTEM: ATLEDMTIEV 
Capp), ,Coptions) 

Capp), , Captions) 

object name, type, 
Program name 
command 

(job name) » 


pp 


Pgm for CMI, (text) 


Ccomma nd ) 


(text) 


PRESS CF6 FOR MESSAGES 


Iser , 


(srcmbr>), (typed, 
(srcmbr > 
(menu) 
(*#NOLIST *LIST) 
» CL, CLF, CMD, CMAF, 
TXT 
Types DISEF Farm 23 


LF U , LiF , MXDOF , fF , FLI , 





Text? 
Sree files QUUSSRE 

CrS-Command entry CF 4-Py 
Job ARP SSEKREXX,. GC.005315 


PROGRAMMER 


Select one of the following? 
1. Tesign/execute DFU app 
2e Desianvexecute yuery ap 
3e Create object 
4. Call program 
Se Execute command 
6. Submit job 
%. Thisplay submitted 
B. Edit source 
9, Design diaplay format 

80. Display Menu 
90. Sign of f 
Types: HAS, BASF, HSCF, CEL, 
PRTF, QRY, REG, RFT, 
Options 5 Parm: AFSSRCXxX 
Command? OVIKDISEE FILE CAPISRG 


jobs 


Sree Li 


submitted to 


_ = = Log requests? *YES 
Oh jy Lib? GLC  Jobd: QBATCEH 
& & only) CF 6-TISPMSG 
Joby QRBATCH.QGFL. 


b? GL a 
oumpt ¢€3,%) 


MENU SYSTEM! ATLETIDEYV 
»>Coptions) 
p Capp), ,Coptions)?) 
ob ject name, type, 
Program name 
comma nd 
(job name), 


Capp), 


pgm for CMI, (text) 


(comma nd > 


(srembr), (typed, (text) 
(srcmbr ) 
(menu > 
CHNOLIST *LIST) 
Cl... CLP, CME, CMNF, LF, 
TXT 
Type? DSFF Parm 23 
») TOFTLES AP SSREXX) 


LiFU, DSF » MXIF, PF, PLI, 





Src filet ADISSRC 
CF3-Command entry 


Src tib 
CF A~Pro 


Log requests! «YES 
Libs’ GLC jobd’ QHATCH 


$ GLC Ob j 1S 
CF 46-DISFMNSG 


mpt (3,5 & 6 only) 
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SOLUTION TO MACHINE EXERCISE 4 


PROGRAMMER MENU 


Select one of the following? 
1. Design/execute DFU app 
2 Design/execute  wuery ape 
3. Create object 

Call program 

Execute command 

Submit job 

Display submitted jobs 

Edit source 

Design display format 

Display Menu 

Sign off 

PRTF,» QRY, 

Option? 4 Farm? 
Command 


BSCF, CHL, 
KFG, KET, 
AP R23 


Text 
Src fite: QUDSSRC 
CF 4-Command entry 


Sre tibs 


ENTER CHARACTERS FOR 


FRESS ENTER FOR SEARCH 


COMMAND KEY 1 FOR ENT OF JOR 


VENDOR NAME. 
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TXT 
Typet 


GLC 
CFA-Prompept (3,5 & 6 anly) 


SEARCH 


» (options) 
» (options? 
type, pgm for CME, 


Capp), 
(app), 
object name, 
Program name 
comme nd 

(job name), 


(text) 


(command ) 


(srcembr), (typed, (text) 
(srcmbr > 

(menu) 

C#NOLIST #*LIST) 
CLP, CMI, CMNF, DFU, 


SPF, LF» MXIT,» 


Parm 23 


SYSTEM! ATLEDIIEV 


FF, FLI, 


Log requests! «YES 


Obj tibt GLC 
CF 4—-lISFPMSG 


VENTIOR SEARCH 


a 


SALESPERSON 


Jobdt QBATCH 


NUMHE-R 








ENTER CHARACTERS FOK 
PRESS ENTER FOR SEARCH 
COMMAND KEY 1 FOR END OF 


VENTOR NAME: 


ENTER CHARACTERS FOR SEARCH 


FRESS ENTER FOR SEARCH 
COMMANI KEY 1 FOR ENF OF 
VENDOR NAME: 


BREST ANE COMPANY 

TeHe BRAYTON JR. 

THE BREAKERS INC. 

WINSTON BUTLER ROSS INC. 
ELLIS BR. BUTTERFIELD, Lh 
THOMAS RB. CORLEY Wits 
ROBERT COTTON INC. 

THE. DFANA AGENCY 

THE [FISK RECORD SHOF 
THORTON DUSLEY LTD. 


SOLUTION TO MACHINE EXERCISE 4 


VENDOR SEARCH 


SEARCH melgr t yt. 


JOR 


SALESPERSON 


VENTIOR SEARCH 


JOB 


SALESPERSON 


MARTE CORDUROY 
JAMES MARSHALL. 
ALICLA GORTON 
TONY TAYLOR 
ENDWAR KUE 

JOHN WARREN 
ELIZABETH HUGIES 
ROSS HUNTER 
JOYCE LYNCH 

RON BATLEY 


fs Os Oe Ov 0 Co 


Zi 


30303 
OLS 
02B40 
34206 
96543 
11014 
01643 
LOOL? 
91462 
01°76 


NUMBER 


NUMBER 


36567 
OO14S 
34681 
00305 
P6431 
P4613 
53410 
j,O504 
11002 
03535 
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O660-0£HZ vrt-9l 





= fL4auTi RO?TMOO 850913 SUA LISFLAY DEFINITION 


DISFLAY FILE APSSRCXX 
RECORI! NAME SCHI'ITA SUBFILE RECORD FORMAT? 


SOURCE FILLE QODUDNSSRC.GLC MEMBER APSSRCXX 04/08/86 14246357 


PRINTOUT OF THE WORK DISPLAY 


CHECK YOUR GLC PRINTER 





04/09/86 15%05%27 


PAGE. 


1 


v ASIDWIXA ANIHDVW OL NOILNIOS 


piy uBiseg usss9S 


SP¢-9L 


C 


S7L4UTL 


RECORT 


RO#MOO 850914 


NAME 


SCHIITA 


a 
KF Ov DAR ODS ON e 


*eE Kk KRXK KK KK KK KK KKK KKK KOK OX 


12 
13 
14 
12 
16 
17 
18 
19 
20 
21 
22 
23 
24 


C 


SBA DISFLAY BEF INITION 


SUPBF TILE RECORM FORMAT’ 


> 


es © aee I a8 Le | Ln oe 


* 6 68 aos 4 wee ees FJ @es 


04708786 ISOS 27 


ton Boe Bok Bot Bok eek Boe Bok Bot ok ek et ek ee ee ee ee ek eee ek ek ek ee eek ek ee ek eee ee ee ee ee ee 


ENTER CHARACTERS FOR 


FRESS ENTER FOR SEARCH 


COMMAND REY 1 FOR END OF 


VENDIOR NAME 


ONNDOOHOOOOOOGOONNOHGO0NN 
OOCONOCCCNONHNOGoOOOOONNGSONO 
Bo0OGCNH OOOO ONCCOHNNNNNNNON 
NOOOHQOOOOONOOVOONONHOOGONN 
AQOOHOOCDONOOONGOOOOHNNNONVAG 
OONN0CNNCNOOOCOONNDOVONBOHOOONO 
OOONNDON OA OHOONOCONNOOOOVHOVA 
OONNOHGOOCOVONSCOONOOOODO0HNN 
DOQQNONHVNCOGOOOVNNVOOONOVNDA 
QOOHOONNOOVOOHOOOONGONGENNO 


SEARCH 


VENTOR SEARCH 


TITITITIITI 


SALESPERSON 


COONOHGONAOVOHONOHDVONCNH0H00N 
ONNNOOHOOHOOOOOVONDOOVNVHOGOO 
VONONOOOAOOOOBOOVQAGHO0ONNO 
OOHOONNOOOOOGOOHONNBOOKNO 
VODOOODOODOOHAOHHOHOoGOAOO 
VSONBDOCOOGOOONDOOOVU00000 
HNOCOOVOOODHOOVDONNNG00000 
DOODNOODOOVODOOVOVONONNNOGD0G 
DODO OONVOOVOOVCOVOOONNONONG 
OOONODOOO0OODOOOONGOONNNH 


ZIF 


66664 
66666 
56664 
66444 
466664 
666646 
6664464 
66664 
464446 
466666 


NUMBER 


466666 
456466 
4644666 
$6664 
64664 
56664 
666644 
566664 
564666 
664454 


xe KKKK KK KK KE KE KK KX KK E K KOE S 


tek cee oe ek eee ee hoe ee ek ek ek ek ek eke kok hake ek keh hehe kiko Kehehakek ko Rekedskek Kekehel aks Kek tok, kteiaKa! 


PRINTOUT OF THE WORK DISPLAY 


CHECK YOUR GLC PRINTER 
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O660-0FUZ 9-91 


sf lL4atuya 


RECORE: 


ORDER 
i 


2 


3 


4 


NAME. 


RO?7MOO 850913 
SCHITA 

NAME TYFE. 

VUNIINAM 0 

VNI'ISLS 0 

VNIIZ IF 0 

VNIINER 0 


ee * 8 & & 8% &® END OF 


* * @ # @# 8 8 #8 ENL 


OF 


SIA DISFLAY BEFINITION 


SUBFILE RECORD FORMAT?’ 


LENGTH LINE FOS 
20 12 2 VENIIGR NAME?’ 


25 i2 31 VENDOR SALESMAN’ 
350 12 rom ZIF CODE*’ 
wren) i2 71 VENTIOR ID) NUMBER? 


LISTING » * * * # 4 # # 


LISTING * * *® ®* *# 8% # # 


PRINTOUT OF THE WORK DISPLAY 


CHECK YOUR GLC PRINTER 
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File name — 


Source file ~— 
Type of data 


Options 
Genlvkl — 
Author it 
Text - 
Comp i ler 


SEQNER 


100 
2090 
309 
400 
OO 
600 
700 
BOO 
900 
19900 
11.09 
1200 
1300 
1400 
1500 
1600 
1709 
1800 
1990 
2000 
2100 
2200 
2300 
2400 
2500 
2600 
2700 
=BOO 


yy - 


Meee 


+ 


DPD PPrYPPPrPrrPrrreyerpPrprrrreprr>rryprprpr?p>r> 


x 


x 


x 


+ 


AFSSRCXX.GLC 


AoOVSSRC.GLC 


*DATA 
*SRC 

20 
*NORMAL. 


1 


76 


| 4 
ww 


7? 


+ 


*eLIST 


2 


6 ae *¢ 4 a ¢ 


OB 336320 


R SCHIITA 
08336320 


VUNIINAM 

VNIISLS 

VNDIZIF 

VNIINHR 

R SCHCTL 
0B 234329 


COME!’ 


*% * & & 


+ 


NATA DESCRIFT ION 


Type of file - 


Member 


C 


AP SSRCXX.GLC 


DISPLAY 


AFSSRCXKX 04/09/86 


IBM System/38 Tata Description Frocessor 


DATA DESCRIPTION SOURCE 


3 es 484 
GLC 
GLC 

R 

RK 

R 

R 
GLC 

R 

EN DT 


+ 


a) 


g0o00o00 


F 


4 


42 
12 
12 


= 


12 


+ 


*¢ eee TD #8. aoe G&S oor eos f eas * 6 


REL-RO?MOO S714-uUT1 

LiSFSIZ¢(24 BO *IS4) 

SFL 

REL--RO7MOO S714-UTi 

TEXT(*subfite record format’) 
OREFFLIOCUNDIINAM. VENT APL. SCHUN., 41. TEL.) 
SiAREFFCOINCUNDSLS. VENT ARLSCHYUN, *L. THI) 
61REFFLDOCYNOZIE.VEND AGLSCHYVN, «1 TAL) 
TIREFFLIOCUNUINER. YENI APL SGCHYUN., #LIBL > 

SFLCTL. (SCHIITA) 


REL-RO?MOO = 3714-UT1 
TEXT (C? SUBFILE CONTROL RECORL? > 
CA01(99 ‘tend of job’) 
SPLOSECTL 
Sk LOSE 
SFLCILR 
GFLSIZCOOS0) 

SFLFAGCO0190) 
3i’VENDOR SEARCH? 

6°ENTER CHARACTERS FOR SEARCH? 

414 REFFLINCSCHCOU.VENDD APL SCHYN, #L IRL? 
QNSFATR (CS) 
2'FRSS ENTER FOR SEARCH? 


2°COMMAND KEY 1 FOR END OF JOR?’ 
9° VENTIOR NAME? 

36’ SALESPERSON’ 

62°2Z1I% 

70 NUMBER? 

x ee mM 


S0QURCE 


OUR DDS LISTING 


92905 


8 


04/09/86 9306138 


hd 


DATE 


04/09/86 
04/99/84 
04/09/86 
04/99/86 
04/09/84 
04/09/86 
04/09/06 
04/09/84 
04/7909/94 
04/09/06 
04/09/84 
04/09/86 
04/09/06 
04/09/9846 
04/99/B6 
04/09/84 
04/09/84 
04/09/86 
04/99/86 
04/09/7946 
04/09/86 
04/09/1346 
04/09/84 
04/09/86 
04/799 /B4 
04,/409/86 
04.709 / 34 
04/09/84 


PAGE 
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MODULE SUMMARY 


You should now have a good understanding of what SDA can 
do, and you might have some opinions as to which functions 
you find most useful. 


Until you have worked with SDA extensively, you might find 
some functions clumsy and continue to perform them the 
old-fashioned way. We recommend that you begin by using 
SDA to test display files, and create menus and the CL 
programs to control the menus. 


After you have used these functions, you will feel more 
comfortable with SDA and be ready to expand your use of it. 
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fi 
Ax 
f-) 3 
A\# 
f 
ra 
fs) 
( 
(4 
a) 
Fy 
fy 


fy 


FTELD REP ERENCE 


PEL DS 


RTF LDS 


Se 
+1 
5 


USED 


ah 


REFEMT 


TN 


WIN TIN RE 


NEE PND 


An TD 


VE ADO 


WM ON AM 


VNDAD 4+ 


VANDAD? 


VNOADS 


MND Z IF 


FTE 
STUDENT EXERCISES 


LD eo 


MAS Thr ke 


PUR: 


RECORDS 


‘5 9) 


“7? as 
4 i) 


a 


pepe 
ae 


ACCOUNT & 


Appendix A. Accounts Payable 
Field Reference File 


PAYAL. E: 


TEXT C'VENDBOR 
COL DGC VENDE 


YET C DEPARTMENT 


CH DTS CFF ey FE 


TEeATE Asal) fb 


MO Die ed py 


TRXT OC 'VENDIOO FE 


OL AGG 0) VE OR 


TEXT OC ADDRESS 


= 


TD NUMBER 3 


Fe 
THE NT 


Pe Die | 


|= J 


NAME" 2 


Te Ln ee 
Pele 


COLHDI 0 ADDRES | 


TEXT OC' ADDER 


BS 


COLE DGC ADDRESS 


The TO ADDL 


ES 


COLHDGC' ADDRENS 


TEATO'ZTR 


CODE ' ) 


Ld 


LONE, 
NE 2 
TNE 


L. DINE 


FILE!) 


‘NUMBER | 
Hear DS 


MUP Fe TD 


PTE 
ORD! 


‘Near |) 
LINE 4. 


‘) 
j') 

') 
2) 


L.TNE 3!) 


a, 


‘CODE SD 


SS USREND |p 


A CORAHDGC' 2TR! IT CODIE ' ) 


a 
fy 
ey 
fy 
FY 
fy 
a) 
rs 
(4 
- 
A 
fy 
A 
FY 
ry 
i) 
F) 
ras 
(A 


VANDA D AON) 


VND HN 


VT RMR: 


WEE MDA 


MNDOLS 


VND ELS 


DTM TD 


DOTY TD 


FCHM TD 


ROMY ED 


Rey CHALE 


SPV EET 


DE LAE TG 


TEXT C' AREA 


CODE * ) 


COLADG OC AREA ! 

TEXT OC CRHONE NU 
COL PID © PHONE. 
TEXT CCNORMAL FF 
COLA Did? TERMS | 
TEX TO NORMAL WN 
COLA Y ao! TERMS | 


TEXT C' VENDOR 

COLHDG C'S ALE A 
TEXT OU DISCOUNT 
MOL Die OTS COU 
TEXTS DISCOUNT 


COLHDG SO TLSCOUNT ' 
TEXT CT RURCHALE 


COL AHOG C' RURCHA 


TEXT CT PURCHASE 
COLHDG C'PURCHASTES | 


TEXT OC  RALANCE 
COLHDG C' RALANC 
TEXT OC ' SERVICE 
COLHDGC! SERVIC 


(SQ DE' D 

Mist Fe" D 

) 

ROME T 
‘me! ) 

QO. OF 
DAYS | 


ER SOND 


TAKEN THIS 
TAINEN ! 
TAKEN THIS 
‘TAKEN! 


NT! 


DAYS 


) 


SALLE STAN |) 


MONTH' > 
‘MTD ' ) 
YEAR ') 
‘YTD 


e THIS MONTH!) 


STEN | 
» THIS 


OWED! ) 
ke! 
RATING ' 
FE! 


'YTD') 


YEAR ' > 


‘YTD! 3 


‘OWED! ) 


) 


"RATING! ) 


TREAT ' DELIVERY RATING! ) 


MOLHOGC DEL ITVE 


RY! 


‘RATING ') 


Accounts Payable Field Reference File 


Fay DISCOUNT %') 


FOR TERMS!) 


SCHCOD LOA 


COMNTS cab 


>PD>>D> D> 


A 
Ax*® FIELDS USED TN TRANSART TON 
Ax 


A TINVNBR tt 
A 

A DATREC 5 
A 

A MERCH ’ 
A 

A NET v4 
A 

A STATUS 4. 
A 

A 

6) DTFAID é 
A 

(3 CHE. CIN 4 
A 

AX 


Ax*® FIELDS USED TN DEPARTMENT 
Ax 


a DNANE 4 
A) 
A BLUDMTYD 9 
A 
A RUDY TD 44. 
A 
A DISMTD 9 
A 
A DIS YTD 4 4. 
A 
a GACT 5 
Fi 
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RECORD 


rw 


MASTER 


TEXT C' SEARCH CODE ' 3 
COLHDGC'SEARCH' 'CODE') 

CHECK CME) 

TEXT C' COMMENTS AROUT THIS VENDOR ' ) 
COLHDGO COMMENTS ABDUT' "VENDOR ' ) 


TEXTC'VENDORS INVOICE NUMBER' ) 
COLADGC'VENDOR' 'INVOICE' '‘NUMBER' ) 
TEXT C' DATE RECEIVED! ) 

COLHDGC'DATE' '"RECEIVED') 

TEXT C'MERCHANDISE AMOUNT ') 
COLHDGC'MERCHANDISE' ‘AMOUNT' ) 
TEXTC'NET AMOUNT FATD') 
COLHDGC'NET' 'AMOUNT' 'FAID') 
TEXTC'ESENTERED T=TO FAY D=DELETE + 
P=FATD' ) 

COLHOGC'STATUS' ‘'OF' 'RECORD') 
TEXTC'DATE FPATD') 

COLHDGC'DATE’ 'FATD') 

TEXT C' CHECK NUMBER ' ) 

COLHRGC'CHECK' "NUMBER! ) 


TEXTC'DEFARTMENT NAME ' )D 
COLHDGC'DEFARTMENT' 'NAME') 

TEXT C' AMOUNT BUDGETED THIS MONTH’) 
COLHDGC'RUDGET' "AMOUNT! 'MTD') 
TEXT C'AMOUNT BUDGETED THIS YEAR ') 
COLHDGC'BRUDGET' 'AMOUNT' '‘'YTD') 
TEXTC' AMOUNT DISPERSED THIS MONTH > 
COLHDGC'DISRPERSED' 'MTD') 
TEXTC'AMOUNT DISPERSED THIS YEAR ') 
COLHDGC'DISFERSED!' 'YTD') 

TEXT C' GENERAL LEDGER ACCOUNT NER! ) 
COLHDGC'G/EL' 'ACCOUNT' '"NUMBER' ) 








Appendix B. SEU User’s Guide 


' The next few pages are a summary of the SEU Line Commands 
and Format Identifiers. 


SEU LINE COMMANDS 
Code 


Function 
Insert a record. 
Insert a specified number (n) of records. 


Insert with Format. (Use the same format as the 
line on which the Line Command is specified.) 


Insert with Format. (Use the format specified on 
the Line Command [xx].) 


Insert with Prompt. (Use the same format as the 
line on which the Line Command is specified.) 


Insert with Prompt. (Use the format specified on 
the Line Command [xx].) 


Copy a statement. 
Copy a number (n) of statements. 


Copy all the statements between two CC Line 
Commands. (Must specify CC on the first and 
last of the statements to be copied.) 


Copy the statements to the statement After the 
“target” Line Command. 





Copy the statements to the statement Before 
the “target” Line Command. 


Move a statement. 
Move a number (n) of statements. 


Move all the statements between two MM Line 
Commands. (See CC Copy.) 


Move the statements to the statement After the 
“target” Line Command. 


Move the statements to the statement Before 
the “target” Line Command. 
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Code Functions 


D Delete a statement. 

Dn Delete a number (n) of statements. 

DD Delete all statements between two DD Line 
Commands. 


This is not a complete list of the SEU Line Commands. 
These Line Commands are the only ones you should 


need during the System/38 Application Programming 
course. Refer to the SEU Reference Manual and User's 
Guide for the complete list of Line Commands. 
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C 


SEU FORMAT IDENTIFIERS 


RPG Ill 


COBOL 


Data Base Files 


Display Files 


FC 
FX 


ce 
CB 
ae 
PF 
LF 
A 
DP 


Format Description 
Comment 

Control Specification 

File Description 

File Description Continuation 
File Description — External 
File Extension 

Line Specification 

Input Record Specification 


Input Field 


Input Record Specification — External 


Input Field — External 

Data Structure Specification 
Data Structure Subfield 
Calculation Specification 
Output Identification and Control 
Output Field 

Auto Report Specifications 
Comment 

COBOL Statement 
Comment 

Physical File DDS 

Logical File DDS 

Comment 

Display File DDS 
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